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Preliminary Information 

This manual precedes initial release publications and 
therefore may undergo substantial revision. 
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MEMOJREX RPG II 
JREFERENCE GUIDE 



This manual serves as an Introduction to the MEMOREX RPG II 
System. It presents a general description of the report program 
generator and the various specifications that compose its unique 
programming language. 

Section 1 provides a system overview, reviews the types of 
specification sheets, and discusses the overall performance of 
the system. 

Sections 2 through 8 deal with the use of RPG II 's programming 
language. Each section is devoted to one type of specifications 
sheet and the coded information that is to te specified on it. 

Appendices A through C provide a detailed flowchart of the 
Memorex RPG II system, supplementary reference tables, and 
definitions of RPG II terminology. 

Appendix D contains a formula for computing block lengths, while 
Appendix E describes RPG II subroutine linkage and the parameters 
for special files. 

Control Language Statement considerations and examples appear in 
Appendix F. Further information on this subject appears in 

Memorex publication 2200.004: Control Language Services 

Extended. 

Appendix G contains an explanation of the error message format 
and lists the error messages by the overlay in which they appear. 

Appendix H describes the operational environment for the RPG II 
compiler and gives the operator options in response to error 
conditions. 

Future releases of the RPG II Reference Guide will include these 
additions: 

• A sample program and programming tips. 

• Coding examples for tables and arrays, indicator 
assignment, and output features. 

Memorex brochure 2282,003, RPG II Reference Summary, provides a 
condensed version of the information found in this manual. 
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Preliminary Infomiation; supersedes aJLL previoiis Preliminary Copy 
and Review Copy releases. 
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aECTIOJS 1. IWTRODUCTIOl^ 



RPG II OVERVIEW 



MEMOREX RKr II is a report program generator which consists of a 
unique symbolic progranmiing language and a compiler which 
traruslates that language into machine instructions. The System 
executes as an application under control of the Memorex Opejraitine' 
System (MRX/OS), 

MEMOREX RPG II is a straightforward system that is readily 
adaptable to most progrananing, situations and capable of managing 
complex problem situations efficiently. The System is designed to 
assist the programmer in organizing job requirements to handle a 
number of important functions with minimum effort. Through simple 
language entries on specially designed coding sheets, the 
programmer can use RPG II to perform extensive calculations; to 
design routines which handle tables and arrays simultaneously; to 
cres,te tape, disc, punched-card , or console files; to update 
existing disc files; and ultimately to generate reports that are 
tailored to a wide variety of user applications. Because of its 
complete flexibility, RPG II can thus be used for almost any 
business data processing application. 

An RPG II application is accomplished in three job stages: 

Analysis 

Compilation 

Execution 

During , the Analysis Stage, the programmer is involved in 
organizing his information and determining the information that 
is to be generated. He decides what input data, output format, 
and calculations are necessary, and codes the information he has 
gathered in symbolic programming language. In this manner, he 
creates the source program, which is then punched into cards to 
form the source program deck. 
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Figure 1-1. RPG II System Processing Overview. 
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In the Compilation Sta^, the compiler translates the source 
program deck into machine language instructions. Much of the 
program detail implied Igr the programmer is actually added ty the 
compiler; the compiler, for instance, assigns the proper disc 
storage areas and creates routines for such functions as 
input/output control. At the end of the compilation process the 
object program that has been generated is ready for the Linkage 
Editor to prepare it for load modiile execution of the 
programmer's instructions. 

It is during the third stage, the execution of the object 
program, that the newOy generated machine language instructions 
msinipulate information from the data input files to produce 
out Pit files and reports. In this stage calculations are 
performed; new files are created on disc, tape, punched cards, or 
the console; existing disc files are updated; information is 
merged for various purposes; and single or multiple reports are 
generated. (See Appendix A for a detailed flowchart of the object 
program cycle.) 

This three-stage approach to report generation assists the 
programmer in concentrating on each individual area of activity. 
The special programming Oanguage increases source program code 
efficiency and the automatic compiler interpretation frees the 
1R^?M1^^W^^ ^^^^ delving into detailed machine language logic. 
MiMOREX RPG II is a versatile, easy-to-use method of report 
program generation. 

Analysis of the three stages shows that each can te further 
subdivided into chronological steps. Figure 1-1 diagrams the 
seven operating steps in the three stages jand shows the easy, 
natural flow of the entire process from the program design (Step 
1 ) to the generation of multiple reports and the output files 
(Step 7). The steps are described in more detail below. 



STAGE ONE: ANALYSIS 



Step 1 - The programmer analyzes the job requirements 
and organizes all available information. 

Step 2 - The programmer codes the job requirements on the 
proper RPG II specifications sheets: 

Control Card and Jile Description 

Extension and Line Counter 

Input 

Calculation 

Output-Format 
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Step 3 - The data is transferred from the specifications 
sheets to punched cards. Each line of a 
specification sheet is punched onto one card, 
and the completed cards form the source program 
deck. 



STAGE TWO: COMPILATION 



titep 4 - Either the source program deck is placed in a 
card-raiding device and read into computer 
storage, where the compiler program translates 
the source program into the object program 
under control of the MIHORiJC System; or the deck 
is put in a source library and read from the library _ 
by the compiler. The resulting object program contains 
all the mchine instructions required to produce the 
output files and reports, but must be linkedited 
before its actual execution. 

Step 5 - The programmer corrects errors and the program is 
recompiled until all serious errors are eliminated. 
The object program is then stored on the disc as a 
relocatable object module, ready to be linked! ted. 
The linkafje editor then ties together all subroutines 
required Ijy the program. When this has been accom- 
plished, the object program is ready for execution. 



STAGE niREE: EXECUTION 

Step 6 - The load module is read into computer storage and 
executed. Under control of the load module, the 
System reads and processes data from available 
input files specified by the programmer. 

Step 7 - The processed data is moved into the specified 

format by the load module and punched into cards, 
written on disc, printed in the form of one or more 
reports, or written to the console. 
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STAGE QUE: ANALYSIS 



As figure 1-1 shows, the Analysis stage of the System comprises 
three steps: organizing the requirements, coding the 
specifications, and punching the source cards. 



STEP 1 -. OiiGANIZIifG THE REQUIREMENTS 



The first step in the process of generating output files or 
reports is to organize the job requirements. The programmer 
identifies the information which is to be output and the format 
It IS to take, selects the input fields he can use, and 
determines the calculations which must be performed to generate 
the remainder of the output information. He also decides whether 
the information is to be generated on punched cards, disc, 
printed pages, or the console, and identifies the necessary 
system devices to be used. A chart showing the flow of 
information through the various calculations and decision 
functions may be helpful in analyzing output requirements. 

After the programmer has determined his requirements and the 
sequence in which they are to be performed, he is ready to 
transfer the information to the RPG II Specifications Sheets. The 
specifications sheets deal with i^even distinct areas of 
information, some of which is mandatory and some of which is 
optional. The sheets are designed to guide the programmer in 
gathering information and coding the language with a minimum of 
work. 



STEP 2 ~ CODING THE SPECIJFICATIOWS 



MEMOJiEX RPG II programming language is coded on five 
specifications sheets. Collectively the specifications sheets 
provide the programmer with forms for coding his source 
information. Individtially each form deals with a distinct area of 
concern such as the input to be used, the format of the output, 
or calculations that are to be performed, ]Ekch specifications 
sheet listed below is discussed in detail in its own section of 
this manual. 
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The Control Card and Pile Description Specifications Sheet 
serves a dual function. The control card section provides 
the compiler with pertinent information about the source 
program and the system being employed. The file description 
portion describes the organization and characteristics of 
the input and output files required by the object program. 

The Extension and Line Coimter Specifications Sheet also 
contains two types of specifications. The extension section 
describes the record address files, tables, and arrays 
required in the job. The line counter lines associate 
channel numbers of the printer carriage control with report 
lines of printer reports so that they can then be output to 
the disc, instead of the printer. 

The Input Specifications Sheet identifies the input records 
and defines the fields contained in each record type. 

The Calculation Specifications Sheet details any arithmetic 
processing or data manipulation that is to be performed on 
the input data. 

The Output-format Specifications Sheet describes the type of 
data that is to be written or punched and specifies its 
arrangement . 



STEP 3 - PUMCHIJ^G THE SOURCE PR0GRAt4 DECK 



The final step in the Analysis Stage occurs after the 
specifications sheets coding has been completed. The sheets are 
arranged in a specified order and submitted for keypunching. Each 
line of data is transferred to one punched card. When all. the 
coded specificationj5 sheets have been converted to punched cards, 
the cards are put in order to form the source program deck 
(Figure 1-2). Since a source program does not necessarily require 
that all the specifications sheets be coded, those corresponding 
parts of the source deck that may optionally be included are 
indicated. 

The creation of the source program deck concludes Stage One of 
RPG II System generation. 
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FILE 
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Figure 1-2. Source Program Deck, 



SECTION 1 PAGE 8 



[ 



SOURCE 
INPUT 



i 



SYNTAX PHASE 



CONDENSED 

RECORD 
DESCRIPTIONS ' 



i 



TABLE OVERFLOW PHASE 



CONDENSED 

RECORD 
DESCRIPTIONS 



1 



COMPILE TIME 
ARRAYS 



H 



Z 



FILE TRANS- 
LATION TABLES 



i 






CODE GENERATING PHASE 



I 



PRELIMINARY 

GENERATED 

CODE 



RLABLt 

AND. 
ULABU 



I 



JL 



CODING FORMATTER PHASE 



OBJECT 
PROGRAM 



SOURCE 
IMAGES 



I 



SOURCE 
IMAGES 



ERROR 
MESSAGES 



SOURCE 

MEMORY 

MAP 



CROSS-REFERENCE PHASE 



CROSS- 
REFERENCE 
LIST 



Figure 1-3. RPG II Compiler Structure. 
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STAGE TWO: COMPILATION 



In Sta^e Two, the emphasis shifts froE the langua^ to the 
compiler that converts the source prcgram deck into machine 
language instructions (figure 1-3). 

The Compilation Stage of the report generator is divided into two 
steps: compiling the soxirce program, and linkeditinr the 
translated program for execution as a load module* 



3TEP 4 - COKPIIING THE SOURCi; PROGRAM 



The RPG II compiler contains approximately 25,000 instructions 
plus object time subroutines, data management routines, tables, 
and buffers. The compiler is designed for batch processing, and 
uses a two-pass mode of operation: scan, and code generation. It 
consists of one resident module, which is the executive routine; 
and four main phases with fifteen overlays. 

To understand the way the compiler works, the six divisions 
within the compiler must be examined. The executive routine 
contains the input /out put interfaces, table lookup routines, and 
other common subroutines. It is the primary section of the 
compiler and is always present in computer storage during 
compilation. The other five parts are called phases. They are the 
Syntax Hiase, the Table Overflow Phase, the Code Generation 
Phase, the Code formatter Phase, and the Cross-Reference Phase. 

The Syntax Phase scans the control card, the file descriptions, 
and all the other input cards, checking the accuracy of the 
source program deck and locatin^r errors in format and content. 

The Table Overflow Phase monitors resident field tables and 
initiates special passes, when necessary', to correct table 
overflows. 

The Code Generation Phase does the actual translation, converting 
the source program into machine language instructions, and 
prcKjessing any compile time tables and arrays. 

The Code Formatter Phase lists error roessa^s, the source 
program, a memory map, external references, and entry points; 
then completes the compilation activity by writing out the 
generated object program in relocatable format. 
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The Cross-Reference Phase is optional; it produces a 
cross-reference list of file names,, field names, and indicators, 
along vdth their storage locations. The data length and type 
(numeric or alphanumeric) are included for field names. 

The minimum machine configuration required for compiling and 
executing an KPG II program consists of the following: 

16K trytes of computer storage (K = 1,024). 8K bytes of 
computer storage are required for the compiler and its 
tahles, and 8K bytes are necessary for the Operating Syst&a, 
including its tables and buffers. 

One disc stoKige unit. 

One central processing unit. 

One operator's console (printer k^ board). 

Any devices necessary to the object program, such as a card 
reader, a jar inter, or tape units. 

CoiiiTjilation tii^ie is a product of machine size and the numter of 
field names and stsitements used in the source program. 

The size of the source program is not limited in usirg the 

MEMOREX RPG II System, but the object program generated during 

compilation is limited to 64K bytes of computer storage (K = 
1,024). 

To initiate the process ol^ compilatiori, tlrie source program deck 
is placed in a card-reading device and read into main storage. 
Compilation then takes place without further progi-ammer 
intervention. The source program instructions are procsessed 
through the four phases of the compiler and an object program is 
generated. 



STEP 5 - PREPARING THE OBJECT PROGRAM K)R EXECUTION 



The object program is automatically stored on disc by the System. 
Once compilation is completed the System also provides a listing 
of the object program and a list of any errors it has detected, 
so that the programmer can undertake corrective measures. After 
corrections are made to the source program, compilation is 
repeated until all errors are rectified. 

The resulting error-free object program is a relocatable object 
module which is suitable for input to the linkage editor. This 
module contains external references to every subroutine it 
requires, so that it can be linked automatically with those 
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«ni^S^+n^^f?T ^^.J^^ UnkBse editor. Supplied by the compiler 
aui;omatiC5aUy, the external references consist of fields, entry 

fni?J^f^ iU^^y^f^ ?®^®? ^^ include all JRKJ II subroutines, all 
iSf S??: _input /output subroutines, and ai^y EXIT or ULABL names in 
the RFG II program (see Section 7, "Operation Codes"). 

?,^?5LSS.°nn^ completed viben an error-free object program has been 
successfully generated and linkedited. The program is then ready 
IZ „S . ®^f9!;^*®^ ^s a load module to perform calculations, create 
or update iiles, generate reports, or fulfill other purposes. 



STAGE THREE; EXECllTTOM 



The Execution Sts^e takes care of tho last two steps of the RPG 

de-irS nntr^n+^^^^Sg*. *^?v, °^^®^* program, and generating the 
S^::!™^ output. Before the programmer caji execute the object 
fli^ZU^^ ^^^t ^ ^^^ ^^^^ *^'® disc on ^^.ich it is stored into 
d«t« «? t^f'^oJo^^^ ^* ^ control the System in processing input 
data as the data is read m from input files. & i' 



STEB 6 ~ EXECUTING TiiE OBJECT PROGRAM 



^.-^iH • P^Qg^\ logic consists of six primary segments: 
^SVl®?^?"-"^' *^®*f^^ operations, input operations, total 
calculations, ^total output operations, and detail calculations. 
in?<,+-,'?f,rt^iv.^°P^^^^g?^^ ^through detail calculations segjnents 
constitute the basic RPG II operating cycle. 

i?SSS+^®^^"^ ?®^fr ^®, performed prior to System entrance to the 
operating .cycle. Housekeeping tasks include opening all files to 

fflff^^.,^-!^^ A^J^^^^^^^' pre-execution tables and array loading 
(after which the files are closed), and first page output. 

Detail operations are performed at the beginning of the operating 
cycle. Heading and detail records are written arid various program 
indicators are set off before the System proceeds to the next 
segment. 

"^5 V^%- i^^P"* operations segment, one input record is read and 
?l^?+.^&?^ .per cycle. The System selects the appropriate record 
(mtuLtifile input) for processing. ^^ a' 
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HOUSEKEEPING 

Open all f ilss. Load pre-executiom 
tables and arrays. Perform first 
page IIP) output. 



DETAIL CALCULATIONS 

Set malching record indicator (MR) 
on or off. Make selected record 
data available for processing. 




DETAIL OPERATIONS 

Write heading and detail output. 
Turn off record identifying, level, 
first page, and halt indicators. 





TOTAL OUTPUT OPERATIONS 

Write all total records to disc, 
tape, or printer, or punch totals 
information into cards for output. 



INPUT OPERATIONS 

Read, identify, and select a record 
for processing. Set on control level 
Indicators if a control break occur- 
red. 




TOTAL CALCULATIONS 

Perform total calculations accord- 
ing to control level indicators. 




Figure 1-4. Object Program Operating Cycle, 
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In the next segment, total calculations are performed on the 
selected record for any control level indicators (lA)-Ly, JR) 
which are on. Although indicator LO is always on, the others may 
iDe set on either by the progrEunmer, or by a control brealc caused 
by a change in a selected control field. Total calculations are 
always done after each control break, and again after the last 
record has been processed. The operations to be performed in this 
segment are dictated by the status of specified control level 
indicators. 

All records conditioned as totals by output indicators are 
written in the total output operations segment, Endr-of-DOb 
processing is initiated during this segment if the last record 
(IiR) indicator is on. 

The detail calculations se^ent includes setting the matching 
record (MR) indicator on or off. Data from the record selected 
for processing in the input operations segment is made available 
as the subject of detail calculations. 



STEP 7 - GEKERATING THE REPORT 

The output of Stage Three is the report designed by the 
programmer in Stage One. The MEMOREX RPG II System helps create 
the ' report by providing, via language specifications sheets, a 
means of interpreting and coding the report requirements first 
devised by the programmer. During compilation, these requirements 
are translated into machine language instructions. The final step 
in the report generation process is the production of the report 
resulting from tlie programmer's specifications and the input 
data. 
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CODING INSTRUCTIONS FOR .COMMON ENTRIES 



Although each RPG II specifications sheet requires codirif^ 
instructions peculiar to the type of specification, certain of 
the required entries are cominon to all the specifications sheets. 
These are: 

PAGE NUMBER Columns 1-2 

LINE NUMBER Columns 3-5 

TYPE OF I10RM Column 6 

COMMENTS Column 7 

PROGRAM IDENTIFICATION Columns 75-80 

General rules can be applied in codlnfr these entries for all the 
specifications sheets. 



PAGE NUMBER (Columns 1-2) 

Entry Descri-ption 

01-99 Specifications sheets are numbered 
sequentially. 

More than one of each type of specifications sheet, except the 
control card specifications sheet, may be used in the course of 
codinp; the source prOiFq:'am. To keep the sheets in the Troper 
order, the coded forms must be grouped tof^ether seauentially and 
arranged by type of specifications sheet in the following order: 

Control Card and File Description 

Extension and Line Counter 

Input 

Calculation 

Ou t pu tr-Forma t 
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The specifications sheets should then be numlDered in ascendinr- 
sequence. 



Lim: NUMBER (Columns 3-5) 

Entry Description 

Any number Line numbers are assirmed In ascend inr 

sequence. 

Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the prof!:rammer's convenience (the control card 
sy^ecification line is always 01). The unnumbered lines below the 
prerrinted numbers can be used for additional lines or to insert 
a line between completed lines. Column 5 can also be used for 
this purpose. The line numbers assirned need not be consecutive, 
but they must be in ascendinrr order. 



TYPE OF I'Om (Column 6) 

Entry E>escription 

H Control Card Specifications Sheet (header 

card). 

F Pile Description Specifications Sheet. 

E Ebctension Specifications Sheet. 

L Line Counter Specifications Sheet. 

I Input Specifications Sheet. 

C Cfeilculation Specifications Sheet. 

Cf Output-Format Specifications Sheet. 

Column 6 contains a preprinted letter on all sheets which 
identifies the type of specifications for each line. 
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COM'IENTS (Columns 7-80) 



Entry 

* (followed 
by any char- 
acters ) 



Description 

Annotation to assist the profrrammer in 
clarifyin/T the profram listinp. 



Comments may be inserted in any of the specifications cards by 
enterinfr an asterisk in column 7 and any characters in the 
remaining columns for pro^^ammer notations. The compiler then 
processes only the first seven characters on the carrl, and 
ip;nores columns 8 through 80, 



PROGRAM IDENTIFICATION (Columns 75-80) 



Entry 
Blank 



Valid KPG 
II name 



Description 

A proiPTam identification of RPGOBJ is 

assumed. 

The program identification should be a 
unique name for the object program. 



The program identification can be one to six characters lonr. The 
corajiler processes the nsame coded on the control card only; 
columns 75-BO are ignored on all other card types, but anpear on 
the source listing. The name must begin v/ith a character from A 
to Z. Other characters in the name may be A - Z, - 9, and the 
pound sign (jl) ^ dollar sign ($), or at sign (@); but no imbedded 
blanks may be used. Wo special characters are allowed in the 
name. 
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SECTIOM 2. COETROL CARD SPECIFIC AIIOUS 



EacJhi RPG II source program deck must begin with a control card. 
The specifications on this card provide the compiler with 
information necessary to translate the source program into an 
object program. This information is derived from entries on the 
control card sjoecifications portion of the RPG II Control Card 
and Pile Description Specifications Sheet (Pigure 2-1). Since 
each source program requires only one control card, a single 
coding line is provided on the specifications sheet. 
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Pigui-e 2-1. RPG II Control Card and Pile Description 
Specifications Sheet. 



CODIWG IWSIRUCTIOWS 



Detailed descriptions of the control card entries to be coded on 
the specifications sheet are defineti below. 
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PAGE liUMBER (Columns 1-2) 

jEntry Description 

01 The control card page number is always 

01. 

More than one of each type of specifications sheet, other than 
the control card, may he used in the course of coding the source 
program. To keep the sheets in the proper order, the coded sheets 
must be grouped accoiding to thesir type and arranged m the 
following orders 

Control Card and Pile Description 

Extension and Line Counter 

Input 

Calculation 

Outputr-Pormat 

The specif i cat ionss sheets should then he nmhered in ascending 
sequence. 



LIME NUMBER (Columns 3-5) 



Entry Description 

01 The control cairl specification line 

is always 01 and is preprinted in 
the specifications sheet. 



TYPE OP PORM (Column 6) 



^try Description 

H H identifies the control card 

specifications to the compiler. 
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OBJECT OUTFUT (Column 10) 

Entry Description 

Blank The program is saved in the object library. 

Any EBCDIC The obqect program is not to be written into 
character the object library. 

An EBCDIC character entered in column 10 prevents the object 
program from being written into the object library for execution. 
The disposition of the object program is then determined by 
MRX/OS Control Language Statement cards. If the column is left 
blank, the object program will be written to the object library. 



STORAGE WEEDED TO EXECUTE (Columns 12-14) 

Entry Description 

KLank The aimount of computer storage needed 

for execution is the same as 
that required for compilation. 

(X)4-.064 The amount of computer storage needed for 

execution is entered when it differs 
from the amount of available storage. 

The computer storage alJ-otment is made in multiples of 1K bytes 
of storage, with K equal to 1,024. The entry must be at least 
004. Even when an entry is thought to be unnecessary, careful 
confjideration must be given to the amount of storage the object 
program will require. 



DEBUG CODE (Column 15) 



Entry Description 

Blank If the DEBUG command is specified, it 

is to be ignored; no DEBUG operation 
is to be performed. 

1 A DEBUG operation is to be performed. 
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Two entries are required to perform a DEBUG operation, in 
addition to the 1 entered in column 15 of the control card 
specifications, the DEBUG operation code should he entered on the 
Calculation Specifications Sheet (see Section 7, "Debug 
Operation"). 



INVERTED PRIXJT (Column 21) 



JEhtry 
Blank 
D 



Description 

Domestic format is to be used. 

United Kingdom format is to be 
used. 



I 
J 



European Convention format is to 
be used. 

European Convention format is to 
te used with leading zeros 
remaining for zero balances. 



The inverted print entry determines the format and punctuation 
used for numeric literals, the edit codes used on output, and the 
order of the UDAIE field (see Section 8, columns 32-37). The 
inverted print resulting from the format chosen is shown in 
Eigure 2-2 • 



INVERTED PRINT 
OPTION 


NUMERIC LITERAL, 
PERIOD OR COMMA 
AS DECIMAL POINT 


EDIT CODES WITH 
PERIOD OR COMMA 
AS DECIMAL POINT 


ZERO SUPPRESSION 
TO LEFT OR RIGHT 
OF DECIMAL POINT 


UDATE SHOWING 
SLASH OR COMMA 


Blank 
D 

1 
J 


1234.56 
1234.56 
1234.56 
1234.56 


9,876.54 
9,876.54 
9.876,54 
9.876,54 


.12 

.12 

,12 

0,12 


MM/DDA'Y 
DD/MM/YY 
DD.MM.YY 
OD.MM.YY 



Eigure 2--2* Inverted. Print. 
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COUNTING SEQUENCE (Column 26) 



Blank 
S or T 



Description 

Normal collatiAg sequence is to 
be used* 

An alternate collating sequence 
is to be used. 



The relative position each alphabetic, numeric, and special 
chai-acter holds in relation to the other characters is called the 
collating sequence. When the normal RPG II collating sequence 
(Pigure 2-3) is to be used, column 26 of the control card 
specification is left blank. 



Alternate Collating Sequence and Translation Coding Sheet 
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REPLACES 
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Pigure 2-3. 



Alternate Collating Sequence and 
Translation Coding Sheet 



To change the collating sequence, two types of entries must be 
made. Pirst, an S or T must be placed in column 26 of the Control 
Card and Pile Description Specifications Sheet. These two letters 
both cause the collating sequence to be changed, and may be used 
interchangeably. Next, the alternate collating sequence must be 
coded on the Alternate Collating Sequence and Translation Coding 
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Sheet for punching into change record cards. The alternate 
collating sequence delineates the ciian^es to be made in the 
normal. collating sequence; it applies only to matching 
alphanumeric fields, f alphanumeric compare operations (see Section 
7, "Compare and Testing Operations") and sequence checking. An 
alternate collating sequence does not affect control leveJ^, 
numeric comparisons, or lookup (see Section 7, "Lookup 
Operations")* 

To cat:ise characters to appear in a sequence different from ttiat 
used by the computer, or to cause two or more characters to be 
considered equal (have the same position in the sequence), the 
alternate collating sequence must be punched into change record 
cards in the followiAg format: 

Positions Description 

1-6 ALTSEQ is entered to Identify the entry 
as one which alters the normal collating 
sequence. 

7—8 These positions are left blank. 

9-10 The hexadecimal number of the character 
whose normal collating sequence is being 
replaced is entered (see Zigure 2-3). 

11—12 The hexadecimal number of the character 
which is to replace the character 
entered in columns 9-10 is written. 

13-16, These positions are used in the same 
17-20, manner as positions 9-12. The first two 
21-24, positions contain the character to be 
etc. replaced. The second two positions 
contain the character doing the 
replacing. The first blank position 
determines the end of the record. As 
many four-position entries may be made 
as are necessary to complete the 
sequence changes. Additional records 
of the same format may also be used. 

The change record cards then form the alternate collating 
sequence table. The table must be preceded by a beginning record 
and followed by an ending record. The preceding record is coded 
with **]i in positions 1—3, where ^ indicates a blank position. 
The remaining positions of the preceding record may be used for 
comments or left blank. 
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The endijog record is coded in one of two ways. If the ending 
record is the last card in the source deck, positions 1-2 are 
coded with /*. If additional tables and arrays other than the 
alternate collating sequence table are to be added (see Section 
4, "Tables and Arrays" )f positions 1-2 are coded with **. 

Pigure 2-4 shows an e^xample of coding for a change in the 
collating sequence. All records begin in column 1« 



OBJECTIVE: TO CHANGE THE COLLATING SEQUENCE OF "A" TO "a" 



ENDING RECORD 



^ 



I 

CHANGE RECORD 



iftl-TSEQ C 
/l I I 

_L_I !__ 



PRECEDING RECORD 



II 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOOOIIOOOOOOOOOOOOOOOOO 

1 ! 3 4 5 « 7 • JMIIKllH»ltinil9»iUI!)Hnii2IMJ!3»31M33MISa);)ll!«41««J<«5««ilHMilSlSlHS55!S;saSH»tlK«S«4«Stil7 

111111111111111111111111 iiinnitiiiiiii niinnnniiiiini nil 111 

222222222 222n 22222222222222222222222222222222222222222222222222 222 



Pigure 2-4. Example of a Change in Collating Sequence. 



TAEIE LOOKUP (Column 34) 

Entry Description 

Blank Either no table lookup is used, or 

table lookup with sequential search 
is to be used. 

B Binary search is to be used for 

table lookup. 

If large tables in ascending or descending sequence are used, the 
binary search specification (B) saves time; however, space can be 
saved by not using the binary search if the tables are small, if 
they are rarely used, or if a few entries which will be 
referenced often are put at the beginning of the table. 
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SIGN PROCESS (Coltam 40) 

Entry Description 

Blank Uumeric input fields and tables are 

to be checked for a valid sign, 

H Except for input fields from tape 

and disc, numeric input fields and 
tables are to be checked for a valid 
sign, 

S Standard signs are to be provided for 

all numeric fields, tables, and 
literals, and for packed numeric 
output fields. 

I Input fields are not to be checked 

for valid signs. 

G No sign is to be forced on output 

fields and output tables, 

B Sign forcing is to occur on literals 

(see Section 7, "Literals"), input 
from tables, and the MOVE, MOVEL, and 
move zone operations (see Section 7, 
"Operation Codes"), 

Several significant details must be kept in mind when the sign 
process specification is used: 

On the 14RX machines all bit combinations carry valid signs 
in arithmetic operations, so that these options are availale 
for compatibility with other types of RPG II, 

In the blank and N sign process specifications, any invalid 
signs are changed to the positive C sign when they are 
encountered in numeric input fields. 

In the S specification, the standard hexadecimal C is 
provided for positive contents, and the hexadecimal D for 
negative contents. If a MOVE, MOVEL or move zone 
specification contains an alphanumeric field in the factor 2 
entry and a numeric field in the result field entry, the 
sign of the result field will be either a hexadecimal C or a 
hexadecimal D. The factor 2 and result field entries are 
thoroughly discussed under the MOVE, MOVEL, and move zone 
descriptions in Section 7, "Move Operations," 
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If the factor 2 entry of a MOVE, MOVEL or move zone 
specification contains a numeric field and the result field 
is alphanumeric and positive, the result field's si^ 
position is forced to an F-2xarie. This also occurs with 
numeric fields which are output in unpacked decimal format* 

The I sign process specification should he used only hy 
programmers who are completely familiar with their input 
data, since input fields are not checked for a valid sign* 
The I specification causes sign fordng on literals, input 
tables, output fields, and the MOVE, MOVEL, move 2»ne, and 
CHAIN operations (see Section 7, "Input and Output 
I*r€^rammed Control Operations") in the same way as an S 
entry does* 

In the <y sign process specification, sign forcing occurs on 
input fields, input tahles, literals, and the MOVE, MOVEL, 
and move zone operations in the same way as it wouM if an S 
were entered. 

The B sign process specification is merely a combination of 
the I and O entries* 



POEMS POSITIONING (Column 41) 

Entry Description 

Blank The line conditioned by the IP indicator 

is to be prrinted only once. 

1 The line coiiditioned by the IP indicator 

can be printed repeatedly* 

A 1 entered in column 41 ensures that the printer forms are 
positioned properly, ibrms positioning applies to the first 
output line conditioned by the IP (first page) indicator for 
printer files* Each time the line conditioned by the IP indicator 
is printed the program halts for forms repositioning* The page 
count is not incremented until the forms are positioned properly* 
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FILE TRMSLATION (Column 43) 

aitry Description 

ELank Ko Tiles are to be translated. 

F Input, output, or update files 

are to be translatea. 

File translation allows the prograBuuer to translate any character 
code into another character code. A different character code uE;ed 
as input can be tran^slated into the code used internally, or the 
code used internally by the MMOREX system can be translated into 
a different code for output. 

Column 43 is used only when information contaiiied in an im)ut, 
output, or update file is in a form which requires translation. 
When file translation is specified for an update file, both the 
input and the output ;portions of the file are translated. 

The input and output characters described here are caljLed 
external characters, while the characters used for processing 
within the computer are referred to as internal characters. 

In the Control Card and File Description Specifications Sheet, an 
F is entered in column 43 to specify that files are to be 
translated. The F indicates one or both of the following: 

The external character code used in the input data must be 
translated into an internal character form that can be used 
by the program. 

The output data must be produced in a character code 
different from the code used by the program. 

File translation records must aLso be punched into cards to 
specify the method of translation. All of the individual records 
topBther then form a file translation table, which immediately 
precedes the alterneite collating sequence table's beginning card 
in the source deck sequence. 
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The entries described below mtjst be punched into a card for each 
file ti^nslation record used in the table. If only certain files 
are to be translated, each file must be individually named; 
however, a sin^e entry will serve for the translation of all 
files • 

Positions Description 

1-^ If all input files, all output files, 
and both the input and output portions 
of all update files are to undergo 
translation, *PILES must be entered* 
The specifications beginning with 
position 9-10 below are then entered. 
All files will be translated according to 
the translation specifications beginning 
in position 9. 

1-8 If only certain files are to be 

translated, the filename of the specific 
individual input, output, or update file 
to be translated must be entered. Both 
the input and the output portions of the 
update file will be translated. 
Specifications are then continued 
for each file, beginning with positions 
9-10 below. 

9-10 The hexadecimal equivalent of the 

external character is the character that 
is to be translated from input data or 
for output data. 

11-12 The hexadecimal equivalent of the 

internal character is the character 
which internally represents the 
external input or output character. 

13-16, These groups of positions are used in 
17-20, the same way as positions 9-12. 
21-24, The first two positions of each group 
etc. indicate the character to be translated 

into the character named in the last 

two positions of the group. 

All tables for a single file must be kept together. The file 
translation input records must be preceded by a record card with 
**^ punched into positions 1-3. The remaining positions of this 
record may be used for comments. The file translation records 
must directly follow the RPG II specifications in the source 
program sequence. 
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SUPPRESS SKIP TO CHAMMEL 1 (Column 47) 

Entiy Description 

Blank A normal skip to channel 1 on the 

printer file is to be made. 

S A skip to channel 1 at the beginning of 

EPG H object program execution is 
suppressed. 

An entry in column 47 prevents printing from starting on a new 
page so that forms can be printed in specific x>ositions. 



CROSS-REFERENCE LIST (Column 52) 

Entry Description 

Blank Ho cross-reference listing is to be 

printed. 

X A cross-reference listing is to be 

I)rinted. 

An X entered in column 52 causes cross-reference listings of 
filenames, field nsunes, and indicators to be printed. The 
filename and indicEitor listings include the line on which ^ch 
filename or indicator is defined and the statenent that 
references each of them. The field name cross-reference listing 
includes the storage location and len£;th of each field name, the 
kind of data it contains (numeric or alphanumeric), the line on 
which it is defined, and the statement that references it. 



CARRIAGE COJJTROL 11PE (Column 53) 



Entry Description 

Blank Carriage control channel niMbers are 

used for spacing. 

L Jjine numbers on a jjage are used instead 

of carriage control channel numbers. 
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II' an L is specified in column 53 the line counter form should 
s:«cify only the first line and len/rth of the form to be used, A 
SKIP specification in the Output-Format Specifications Sheet 
(^Section 8) then refers to the line nunbers. 

When an L is specified in column 53, the /"generated RPG prorxam 
simulates skips to a line. It gets its starting point by an 
initial sldp to channel 01, and assumes that channel 01 is on 
line 06- All subseouent sfacinfr is then relative to that startini? 

point, 

Leavinf^ column 53 blank speeds up printinp and causes spacing to 
be roverned by carria^ control tapes. SKIP specifications in the 
output-format sheet refer to carriaf^ control channels when the 
column is left bla,nk. 



SOURCE sequence: check (Column 54) 



Entry 
Blank 



Description 

A full sequence check is to be 
performed. 

No sequence check is to be performed, 



If no entry is made in column 54, columns 1-5 are to be checked 
for sequence. An N entered in column 54 indicates that columns 
1-5 are not to be checked for seauence. 



luiiORE Al^ITIlMETIC OVEIJELOW (Column 55) 



Entry 
Blank 
I 



Description 

Arithmetic overflow is to be indicated. 

Arithmetic overflov/ is to be iniored by 
the compiler. 



If an I is entered in column 55 the compiler if^ores any 
arithmetic overf3.ow which may result from calculations and 
processing; continues. If column 55 is left blank the compiler 
issues a message to the console indicatinft on which line the 
overflow occurred before processincr continues. 



SECTION 2 



PAGE 14 



2202.003-0004 r- 4/30/73 



PROGRAM IDENTIilCATION (Columns 75-80) 



Entry 
Blank 



Valid RPG 

11 name 



Description 

A program identification of 
RPGOBJ is assumed. 

The prO)?;ram identific tion should be 
a unique name for the object prop:ram. 



No special characters may "be used in the prorram identification. 
The first character of the name cannot he one of the following; 
c.^jBxacters: §, $ or @; it must he a cte-racter from A to Z. The 
remaining characters can be any combination of alphabetic and 
numeric characters. The program identification can be one to six 
cliaracters lonf;. Blanks cannot appear betl^?een the char8.cters. 
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SECTION 3. FILE DESCRIPTION SPECIFICATIONS 



A file IS a collection of related records treated as a single 
unit. The records within a file are similar in purpose, form and 
content. 

i'ile description information is required for every file used by a 
prorrara. This information is entered on the RPG II Control Card 
and File Description Specifications Sheet (FiF:ure 3-1). A sinrle 
line is sufficient for descrihin,p: each file, and a maximum of 20 
tile description record lines is permitted for each program in a 
partition whose size is 10K or Djir^^er. In a partition smaller 
than 10K, a maximum of 10 files is allowed. 
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Fifxire 3-1 



RPG II Control Card and File Description 
Specifications Sheet. 



TYPES 01' FILi;S 



RPG II uses five types of files: input, output, update, display, 
and combined. 
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IWPUT FILES 

Input files contain records which provide a -pro^xsM's source of 
data. An input file description in a program indicates that 
records are to be read from that file,. All input files except 
table files and record address files (see "Pile Designations" in 
this section) require additional description on the Input 
Specifications Sheet (Section 6). Table files and record address 
files require further description on the Extension Specifications 
Sheet (Section 4). 



OUTPUT PILES 

Output files comprise the records that a prof^ram writes, punches 
or prints. All output files except table and array output files 
require further description on the Output-Format Specifications 
Sheet (Section 8). See "File Designations" in this section for 
additional discussion of table and array files. 



UPDATE ITLES 

Update files are disc files from which a program reads a record, 
updates its fields, and rewrites the record in the location from 
which it was read. Update files require additional description on 
both the Input Specifications Sheet (Section 6) and the 
Output-Format Specifications Sheet (Section 8). 



DISPLAY PILES 

Display files are composed of information gathered from various 
fields used by a program. To print a field or record directly 
from storage, and to key data into a field or record in storage, 
the DSPLY operation code must be entered on the Calculation 
Specifications Sheet (Section 7). The only device that can be 
associated with a display file is a console (printer keyboard). 
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COMBINED FILES 

A combined file comprises an input and an output file. A prorrain 
reads records from a comMned file and simultaneously punches 
output data into the records via the 8025 Card Reader/Punch. The 
resulting single file contains both input and outTUt data. 
Combined files require additional description on both the In-nut 
and the Output-Format Specifications sheets (Sections 6 and 8, 
respectively). 



mj: DESIGNATIONS 

Six designations are used in RPG II to describe input, oi.it-nut, 
and update files still l\irther: primary, secondary, chained, 
demand, record address, and table and array. 



PRIMARY FILES 

The primary file is the main file from which a program reads 
records. The program uses the primary file during multifile 
processing to control the order in which records are selected. A 
primary file can be an input or update file, but one and only one 
primary file is required for every program. 



SECONDARY . FILES 

All files involved in multifile processing except the primary 
file are secondary files. Secondary files are processed in the 
order in which they are entered on the File Description 
Specifications Sheet, and can be input or update files. 



CHAINED FILES 

A chained file is a disc file that is read randomly or loaded 
directly via the CHAIN operation code (Section 7). A chained file 
can be read or written during detail calculations time or total 
calculations time (see Figure 1-4). A maximum of 15 chained 
and/or demand files is permitted in each program. 
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DF^IAND ULES 

Demand files can "be input or update files, and can only l)e 
processed sequentially. The READ operation code must be used on 
the Calculation Specifications Sheet (Section 7) in order to read 
from a demand file.. A maximum of 15 demand and/ or chained files 
per projfgram is allowed. 



RECORD ADDRESS PILES 

A record address file is an input file that indicates which 
records are to "be read from a disc file, and the order in which 
those records are to he read. Only one record address file can "be 
used in a program. 

Record address files contain either relative record numbers in 
binary format, or record key limits. Those files with record key 
limits can be disc or card files, or can be entered via the 
console. They are used with indexed files only (see "File 
Organization" in this section). 

Record address files that contain binary relative record numbers 
can only "be disc files and can be used only with relative files 
(see "Pile Organization" in this section). 

ADDROUT files are a special type of record address file, since 
they are produced by the disc sort utility program, rather than 
by the RPG II source or object progrs.m. Ejcecution of the disc 
sort utility program is controlled by the operating system. 



TABLE OR ARRAY PILES 

A table or array file is a sequential input file containing' table 
or array entries. Only pre-execution time tables or arrays need 
be described on the Pile Description Specifications Sheet. 

Pre-execution time table or array entries are read into the 
program immediately before program execution and are described on 
both the Pile Description Specifications Sheet and the Extension 
Specifications Sheet (Section 4). Table and array files are not 
involved in record selection and processing, since they are used 
only as a means of supplying entries for tables or arrays used by 
the program. When table or array files are read at pre-execution 
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time, the progjcam reads all the entries from the table or array 
files before it begins record processing. 

Compile time table or array entries are read into the program 
dijring compilation, and are described only on the Extension 
Specifications Sheet (Section 4). 

A table or array output file is defined as a normal output file 
and requires no special entry in the Pile Description 
Specifications Sheet. 



file; organizatioi^ 



Pile organization is determined by the arrangement of the records 
within the file. The three types of file organization are indexed 
files, relative files, and sequential files. 



INDEXED PILES 

Indexed files are disc files whose record locations are kept in a 
separate portion of the file called an index. The index contains 
a record key for each record, as well as the record's location. 
The record key contains the information found in the key field of 
a record and is used to identify the individual record in the 
indexed file. Indexed files must contain fixed— length records, 
and must be loaded in ascending record key sequence. 



RELATIVE PILES 



Relative files are disc files whose records are directly called 
by number, rather than by the sequence in which they were loaded. 
Each record is assigned a specific place within the file and a 
relative record number which identifies its position in the file 
in relation to the other records. Before a relative file is 
loaded, the disc is automatically cleared to blanks. 
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SEQUENTIAL FILES 

A sequential file may be assigned to any device. All files that 
are not assigned to disc must be sequential files. In a 
sequential file, records are ordered in the same sequence in 
which they are put into the file. The first record read always 
occupies the first record position, the second one read occupies 
the second record position, and so on. 



CODIKG IMSTRUCTIOWS 



Detailed descriptions of the file description entries to be cocled 
on the sjiecif ications sheet are defined below. 



PAGE NUMBER (Columns 1-^2) 

Entry Description 

01-99 Specifications sheets are numbered 

sequentially. 

More than one of each type of specifications sJrieet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded File Description Specifications 
Sheets must be grouped together sequentially and arranged with 
the other specifications sheets in the following order: 

Control Card and File Description 

Extension and Line Counter 

Input 

Calculation 

Output-Format 

The specifications sheets should then be numbered in ascending 
sequence. 
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LIJ^E NUMBER (Columns 5-5) 

Entry Description 

Any number Line numbers are assigned in 

ascending sequence. 

Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer's convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers asslf^ed need not be 
consecutive, but they must be in ascending order. 



TYPE OF EORM (Column 6) 

Entry Description 

E E Identifies the file description 

specifications to the compiler. 



PIIENAME (Columns 7-14) 

Entry DescriTPtion 

1-S The name of the file being described 

characters is entered. 

A unique name must be assigned to every file the program uses 
except compile time table and array files, which are described in 
the Extension Specifications Sheet (Section 4). If the filename 
is left blank, an error occurs. 

The filename must be a valid RPG II name; it may be the same as a 
iield name. A valid filename consists of one to eight characters. 
The first character must be alphabetic; the remaining characters 
can be any combination of alphabetic and numeric characters. 
Special characters are not permitted. Blanks cannot apDear 
between characters in the name. 
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Pre-execution time tatle and array filenames are entered on the 

File Description Specifications Sheet. More than one 

pre-execution time table or array filename can he entered for the 
same device (see columns 40-46 in this section). 



TYPE OP PILE (Column 15) 

Entry Description 

I An input file is to he used. 

An output file is to be used. 

U An update file is to be used. 

C A combined file is to be used. 

D A display file is to be used. 

The entry in column 15 identifies the way in which the file is to 
be used by the proftram. If the type of file entry is left blank, 
it is considered an eri'or. 

Of the four types of files that can be identified, all but the 
display file require additional entries on other types of 
specifications sheets. Input files (except record address and 
table files) require other entries on the Input Specifications 
Sheet (Section 6). Record address and tables files used as input 
files must be identified on the Extension Specifications Sheet 
(Section 4) as well as the Pile Description Specifications Sheet. 

Output files, except teble and array fi3.es used as output files, 
require additional description on the Output-Iormat 
Specifications Sheet (Section 8). Table and array filevS used as 
outpjt files are described on the File Description Specifications 
Sheet and the Extension Specifications Sheet. 

I Update and combined files require additional entries on both the 
Input and the Outpu1>-Format Specifications Sheets. 
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DESIGNATIOW (Column 16) 

JSntry Description 

JJlank A display file or output file (except 

a chained output file; is to be 
used. 

P A priioary file is to be used, 

S A secondaiy file is to be used, 

C A chained file is to be used, 

R A record address file is to be used. 

T A pre-execution time table or array 

file is to be used. 

D A demand file is to be used. 

The file designation entry in column 16 is a one-character code 
which further identifies a file by indicating its specific use by 
the program. 

Primary and secondary files involve record selection in multifile 
proce.'3sing. For detailed information on primary and secondary 
file processing, see "Multifile Processing" in Section 6, 



ENJD-OP-PILE CODE (Column 17) 

Entry Description 

Blank The program can end before all the 

records from the file have been 
processed. 

E The program cannot end until all 

records from the file have been 
processed. 

The end-of-file code applies only to input and update files 
designated as primary, secondary, or record address files for 
multiprocessing. When column 17 is left blank for all of the 
files described, every record from every file must be processed 
before the program terminates. 
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When matching records are bein^ processed with an E specified ior 
the primary file, the job ends only after the System has 
processed all secondary records that match the last primary 
record, or after it has encountered the first secondary record 
without a match field. 



SEQUENCE (Column 18) 

Entry Description 

Blank Sequence checking is not to be 
perfoncaed. 

A Sequence checking is to be performed; 

the file records are in ascending 
order. 

D Sequence checking is to be performed; 

the file records are in descending 
order. 

The sequence entry i£; used to indicate whether or not the program 
is to check the sequ€;nce of the records. The entry applies to all 
update files, and to all input files except chained, demand, 
record address, table, and array files, for which it is left 
blank. ColiMn 18 is left blank for output and display files. 

Sequence checking is required when msLtch fields are used in the 
file records (see Section 6, "Match fields"). An entry in the 
sequence field must be further described in columns 61-62 of the 
Input Specifications; Sheet (Section 6) via an entry identifying 
the match fields which contain the sequence information. 



PILE PQRMAT (Column 19) 

Entry Description 

p The records in the file are 

fixed-length. 

V The records in the file are 

A^ariable-length. 
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^%?.Z^t ••" ^"^ indexed file must be fixed-lenfrth; i.e., all the 
records m an indexed file must he the saine length. Ta-ne and 
non-mdexed disc files may contain records of variable lenPths. 
• *V®^.. i. ^T ^ ™^^ ^ specified in the file format entry; if it 
is leit blank, a warning messa^^e is issued and F is assumed. 



LENGTH OP BLOCK (Columns 20-23) 

Entry Description 

Blank The compiler calculates the block 

length from the record length and the 
file device. If the device is disc 
or tape and the record length is 256 
or less, the compiler for-oups as many 
records as possible into a block whose 
size does not exceed 256 (see Appendix D), 

1-4096 The length of a block of records is entered. 

Tor all devices except disc or ta-ne, the 
length entered raust be the same as the lenrth 
of a record (columns 24-27). For disc or 
tape, the length entered may be the record 
length or a multiple of the record lenrth 
+ 4. If the block length entered is the 
same as the record length, an optimum 
block size is calculated for disc or ta-oe 
(see above). If records are variable- length, 
the only restriction is that the LENGTH OF 
BLOCK entry must be greater tha.n or eaual to 
the LENGTH OF RECORD entry. 

RPG II allows block lengths for fixed-length records eoual to the 
iiTlt -I ^t ^^^^^^ or a multiple of its length plus 4. Leral 
block lengths are governed by the type of device assigned to the 

r^iio;^c .V, ^^'^-i ®r*^^ ^^ ^^^^ specified for variabl<>-lenrth 
records, the block length need not be a multiple of the record 
length; the maximum block length is entered instead. 

ioi^oVT^^S^ f"*^ *^^ records, whether fixed-length or 
^f^.i^T r^^' ^^^ stored in common stored data format: a 
i2 7^^ ^f^^®^ precedes each logical record. Thus if a record 
length were 100, unblocked, the block length would be 104; and if 

length^Soild^be 21*6?°'^'^ ^^ ^ ^®"^*^ ""^ ^^' ^^^^^^^ ^^ *^^ ^^o^l^ 

J??^«S°? /®^^*tu actually assumed by the compiler may be 
SHS^?2i ^^^'^^ ^H ^^^"^^ length specified because of the extra 
Characters ^needed for carriage control and spooling control. See 
Ajjpendix D for more information about assumed block lengths. 
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jn tries must be ri^ht- ."justified to end in column 23, and leadinr 
zeros are not required., When the block length is the same as the 
length of one record, the field may be left blank. 



LENGTH OF RECORD (Coluiuis 24-27) 

Entry JDescription 

1-4096 Either the number of characters in a sinrle 

fixed-length record, or the laaxiwum record 
length for variable- length records is 
specified. 

Columns 24-27 are used to indicate the length of the records in 
the file. The maximum record length allowed and the size of the 
inPut/out-nut area assigned depend on the type of device assimed 
to the file. If the entry is left blank an error occurs. If 
variable-len.<-th records are specified in update files, they need 
not be the same length after upda.ting occurs as they were rn or 
to UT^datin^. The records cannot exceed the maximum record lenrth 
specified, however, after they are updated. (See Appendix D lor 
information about assumed record lengths.) 



PROCEvSSIMG MODE (Column 28) 

Entry Description 

F.lank The processing mode is either sequential 

by key, or consecutive. 

L The processing mode is sequential within 

limits. 

r; The processing mode is one of the followinr: 

Random by relative record number 
Random by key 
By ADDROUT file 
Dii'ect file load 

The processing mode entry indicates the method by which records 
are to be read from the file, or that a direct file load (random 
lo,-d) is to take place. For disc files specified as vrxmary, 
secondary, or chaired files, the methods possible depend upon the 
tyre of file organization (Figure >2). For the other types of 
files, consecutive processing is the only possible method. 
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HilMARY AND SBOONDftRy FILE JPROCESSIWG 


Organization 


Possible Methods 


Sequential 


Consecutively • 


BeOative 


1 . Consecutively* 

2. % ADOROUT me. 


Indexed 


t» Sequentially ty key. 
2* Sequentially lathin limits. 
3. Eandomly hy Iney (via record 
addjness file or chaining) • 



CHAINfID FILE PROCESSING 


Qrganissation 


PossilxLe Methods 


Belative 


fiandonly by relative record number. 


Bidexed 


Randomly by Icey. 



Figure 3-2. Possible Disc File fiecord fietrieval Methods. 



LEmm OF KEY FIELD OR RECORD ADDRESS FIELD (Colunns 29-30) 



Batry 
1-99 



Description 

Specifies the length of the record 
kfgy in indexed files or in record 
address files that contain either 
random k^s or limits. 

Specifies the length of the ACiXOUT 
file record* 



This entry applies only to indexed disc files and record address 
files. If these files are used aM the entry in columns 29-30 is 
left blank, an error occurs. 

The maximum length allowed for key fields in indexed file records 
is 99 cfaoracteins* All the key fim.ds in indexed file records must 
be the ssoae length. A length of four is required for records in 
an ADQROUT file. The leading zero may be omitted, however ttie 
entry must be right-justified to end in column 30. 
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RECORD ADDRESS TYPE (Column 31) 



Entry 
Blank 



A 
I 



Description 

One of the following is to occur: 

Records are to be read consecutively: 
or a sequential or relative file is to be 
loaded; or relative record numbers are to 
be used in processing relative files. 

Alphanumeric record keys are to be used in 
processing indexed files. 

The file is an ADDROUT file, or an 
ADDROUT File is to be used to 
process the file. 



An entry is specified in column 31 only for indexed and ADDROUT 
files. Ko entry is required for the other file types. 



FILE ORGANIZATION (Column 32) 



&itry 
Blank 

I 
T 
1-9 



Description 

A sequential or relative file is to be 
processed. One input /outijut area is 
to be used for the file. 

An indexed file is to be processed. 

An ADDROUT file is to be processed. 

A sequential file or relative file is to 
be processed. Two input /output areas 
are to be used for the file. (The 
digit 2 is preferred, since a aaximum 
of two input /output areas is 
permitted. ) 



The file organization entry can be used td identify the 
organization of all files except ADDROUT files; to identify 
ADDROUT files; or to indicate whether one or two in:put /output 
areas are to be used for sequential files or relative files. 
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OVHii'LOW Ii^DICAI'OH (Columiis 33-34) 

Entry Description 

Blank Mo overflov; indicator is to be used. 

(3A~(X, The specified overflow indicator is to 
OV be used to condition records in the 

file. 

Overflow indicators are used for output files assigned to the 
printer to indicate tl^iat records to be printed in the file are 
being conditioned. Overflow indicators used in a program must be 
uni.que for each outjijit file assigned to the printer. OiHy one 
overflow indicator can be assigned to a file. 

Overflow indicators cannot be assigned to a console file. They 
may be turned on and off by the operation codes SETOi^ and SELOF 
(see Section 7, "Opexation Codes") when they are used to 
condition overflow printing. Spacing;; past the overflow line 
clauses the overflow indicator to turn on. Skipping past the 
overflow line to any line on the new page does not ttirn the 
overflow indicator on. A skip to a new psge specified on a line 
not conditioned by an overflow indicator causes the overflow 
indicator to turn off. 

Overflow printing with the EXCPT operation code (see Section 7, 
"Oj^eration Codes"; involves certain rules: 

Overflow indicators cannot condition an exception line, but 
they can condition fields within an exception record. 

Using the EXCFi operation code with the E in column 15 of 
the Output-format Specifications Sheet (Section 8) causes 
the iields to be printed while the calculations are being 
performed; normally they are printed afterwards. Only the 
fields identified by an E in column 15 are printed at that 
time. 

Even though the specified fields are printed during 
cslculations, they still have the same effect on the 
overflow routines as all other lines. 
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STARTING LOCATION OF KEY FIEI,D (Coluirns 25-3^) 



Fjitry 
1-4096 



Description 

Indicatefi the record position in which 
the key field befins. 



An entry in columns 35-38 is required only for indexed disc 
files. If an entrv is not made for on indexed file, an error- 
occurs. The entry "must end in column 38. Leading zeros are not 
required. 

The key field of a record is used in the index portion of the 
file and contains information that identifies the record. The key 
field in all of the records in a file must be in the same 
location. 



EXTENSION CODE (Column 3°) 



EM try 

E 

L 



Deocrlption 

Fxtension specifications further 
<' escribe the file. 

Line counter specifications further 
describe the file. 



'ihe extension code in column 39 is used for all record address 
files, for all table and array files to be read durinf: pro-am 
execution, and for outr)ut files assifned to the printer vhich 
have a line counter associated with them. The column is lett 
blank for all other files. 

The Extension S{)ecifications Sheet must be used to f'ive 
lidditional information about table, array, and record adc ress 
files. The Line Counter Specifications Sheet should be used to 
£ive additional information about print files which mry 
assi£Tied to disc or tape. 



be 



If the column is left blank for table, array, or record address 
files, a warning message is issued and an error occurs. 
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DEVICE (Ccaumns 40-46) 



Entry 

DISC 

PUNCH 

TAPE 

READ 

CONSOIE 

PRINTER 



Description 

Specifies the disc unit. 
Specifies the card punch. 
Specifies luagnetic tape. 
Specifies the card reader. 
Specifies the console keyboard. 
Specifies the printer. 



The entry in columns 40-46 identifies the input/output device to 
be used for the file being described. The device used depends 
upon the form of the records, as illustrated in Pigure 5-3. 
Entries must be left- justified to begin in colunin 40. If the 
entry is left blank, an error occurs. 
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PILE 



Primary or Secondary 
Input Piles 



K)RM 



Record Address Piles 
Containing Record-Key 
Limits 



ADDROUT Pile 



Table Piles 



Chained Input Piles 



Update Piles (Primary. 
Secondary, or Chained) 



Output Piles 



Display Piles 



Cards 

TSipe 

Disc 

Keyed in by Operator 



Cards 

Tape 

Disc 

Keyed in by Op€irator 



Disc 



Cards 

Tape 

Disc 

Keyed in by Operator 



Disc 



Disc 



Cards 

Tape 

Disc 

Printed Pages 



Printed Pages 



DEVICE ENTRY 



READ 
TAPE 
D3SC 
OOMSOLE 



READ 
TAPE 
DISC 
COMSOLE 



DISC 



READ 
TAPE 
DISC 
CONSOLE 



DISC 



DISC 



PUNCH 

TAPE 

DISC 

PRINTER or 001«50LE 



COUSOLE 



Pigure 3-3, Devices Possible for Assignment to Piles. 



Sulastitute Device Assignment 

In addition to the standard device names shown in Pigure 3--3, 
certain other device names are allowed for compatibility with 
other systems. Pigure 3-4 lists the name of each of these devices 
and the Memorex device that is used in its place, and indicates 
whether or not the substitute devices issue warning messages. 
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DEVICE 


MEMOREX SUBSTITUTE DEVICE 


WARNING MKSSAGE 


MPCM1 

MFCM2 
CRE'20 
MFCU1 

MFCU2 


_________ ' ' — ' — 1 

READ, if an I is specified in 
column 15 


X 


PUUCH, if an Cr is specified in 
column 15 


X 


PRIUTLF 


PRIUTER 


X 


PRINTUF 


PRINTER 


X 


PRINTR2 


PRIUTER 




READ01 


READ 




DISK11P 


DISC 




PRIWTKB 


COXiSOLE 




INQIPT 


CONSOLE 




¥mai20 


PUNCH 




PUICH42 


PUNCH 




DISK 


DISC 





Figure 3-4. Substitute Devices Assigned to Piles, 



S pecial Device Suyiport 

Special input /output devices inay be used with RPG II by providing 
a link to a user-written routine that enables data to be 
tranfiferred for the special device* 

The files read and written are called special files and are 
desi^piated as such by entering the word SPECIAL in columns 40-46, 
Speca.al files can only be processed consecutively. 
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qr^^ial files require specific entries in all the columns of the 
lif^DesciiptiS^ Specifications Sheet, and special entries for 
the special device feature. The entries are listed below, with 
asterisks denoting the special entries. 



Columns 
7-14 
15 
16 

17 
18 

19 

20-23 

24-27 

28-31 

32 

33-39 
*40-46 

47-53 
*54-59 

60-70 
71-72 
73-74 



Ent:ry 

Valid RPG II filename. 

I, 0, or U. 

P, S, D, or blank. 

Blank or E. 

Blank, A, or D. 

P. 

Block length. 

Rec!ord length. 

Bl£ink (mandatory). 

BlEink or 1-9 (dual I/O areas are 
aULowed ) . 

Blank (mandatory). 

The word SPECIAL. 

Blank (mandatory). 

SU:BRxx (x can be any alphabetic 
character. This is the name 
of the user-written routine^ 
that performs data transfer). 

Blank (mandatory). 

Blank or U1-U8. 

Blank (mandatory). 



See Appendix E for a discussion of special file linkage. 
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HIGH-LEVEL DIRECTORY SIZE (Colimns 47-52) 

Entry Description 

Blank No high-level directory is to be used. 

1-99999 S;pecifies the number of bytes reserved for a 

high-level directory. 

An entry in columns 47-52 indicates the number of bytes to be 
reserved for a high-level directory which is kept in memory 
throughout the job, thereby increasing disc file access speed. 
The entry must be right- justified; leading zeros are not 
required. When no entry is made in columns 47-52, the high-level 
directory is accessed anew each time it is needed. 

The high-level directory contains a key and a block number which 
corresponds to the index directory and is used with randomly 
accessed disc files. 



TAPE LABELS (Column 53) 

Entry Description 

Blank Either no labels are to be used, or 

the file is not a tape file. 

S Standard labels are to be used. 

N Nonr-standard labels are to be used. 

Column 53 is used for tape files to indicate the type of label 
information on the tape. RPG II handles the processing of 
standard labels. 



INDEX BUFFER SIZE (Columns 60-65) 

Entry Description 

Blank No index buffer is to be used. 

1-9999 The number of bytes reserved for 

the index buffer is entered. 
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The index buffer entry applies only to indexed disc files. Up to 
9999 bytes can 1)6 specified for the index "buffer. Entries must be 
rirht- justified to end in column 65, however leading zeros are 
not required. 

An index block, which is read into the index buffer, is >^ table 
which contains index keys and pointers to the correspond in f' 
records. An index buffer must be used for indexed files processed 
s€:iquentially, but it is not required for indexed files processed 
randomly. If the entry is left blsnk for randomly processed 
indexed files, the index buffer shares the area occupied by the 
data buffer; thus the amount of time needed to process the file 
is reduced. 



illil ADDITION (Column 66) 

Entry Description 

A Wev>/ records are to be added to the 

file. 

Coluinn 66 applies only to sequential, relative, and indexed disc 
files. If the column is left blank, it is ignored. Records added 
to a seauential file are added at the end of the file. Records 
added to relative files must be within the file limits; the file 
size cannot be extended. Records added to an indexed file can be 
added to any part of the file, including; the end, as lonr as a 
record is not already specified for that key. Records may only te 
replaced by performinp- an update. Entries for the new records are 
made in the index. 



lile addition cannot be specified for indexed files from which 
records are read usinr the sequential-wi thin-limits method. New 
records may be added to a relative file by specif yinr the file as 
an update file processed consecutively, or by the CHAIN oper?^,tion 
code (see Section 7, "Operation Codes"). 



TAP! REWiro (Column 70) 

B,ntry Description 

Blank Rewind only is to occur. 

N No rewind is to take place, 

U Rewind and unload are to occur. 
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This entry defines tlie re%dnd action to te taken on tape files 
vtien the end-of-file condition occurs (see colunin 17). 



PILE OONDITIOW (Columns 71-72) 



Entry 
Blank 

U1-U8 



Desicription 

The file is not conditioned lay an 
extiemal indicator. 

The file is conditioned by the 
specified external indicator* 



Columns 71-72 apply to primary and secondary input files 
(excluding table input files), umate files, and output files* A 
record address file may he conditioned by an extemiiL indicator 
if its associated primary or secondary file is conditioned either 
by the same indicator or by no indicator* 

External indicators are set by using a parameter on the MRX/OS 
Control Language statement for execution of the object prc^ram* A 
file conditioned by an external indicator is used only when the 
indicator is on. When the indicator is off, the file is treated 
as though the erd-cf-file condition had been reached; no records 
can be read from or written in the file. 

In addition to their use as file conditioning indicators, 
external indicators may be used as field record relation 
indicators (see Section 6, columns 63-64), and to condition 
ca:Lculation or output operations* See Section 7, "Indicator 
Setting Operations," and Appendix B, Tables B2 and B3, for 
indicator summaries*) 



PJHOGJRAM LDEKTIPICATION (Columns 75-80) 



Entry 

Any 
characters 



Description 

These columns may be used for programmer 
comments* 



The program identification field of all cards following the 
control card may contain any characters, including blanks* The 
columns may be used for programmer coBments, if desired* 
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SECTION 4. EXTENSION SPECIFICATIONS 



Extension specifications are required to complete the description 
of record address files (see Section 3, "File Desi^atiors"), 
tables, and arrays. Every table and array used by ^the otiect 
program must be described on the RPG II Extension and Line 
Counter Specifications Sheei (Fi^re 4-1). A maximun' of 60 table 
and array descriptions and one record address file description is 
allowed for each pro-am in a partition whose size is ^K or 
larger. In an 8K partition 12 tables/arrays, minus the rumber of 
liles used, may be defined. 



RPG II Specifications 



Punching Inttructtons 



ProBrammw__ 
Proflram 



Extension 



cc 

i 

1 2 


3 •! B 


I 


7 • • to 


"FROM" i=ILENAME 
n 12 13 M 13 W 17 11 


"TO" FILENAME 

i» 20 zi X8 es M es M 


TABLE on 
ARRAY NAME 

ST 28 M 30 B1 S2 


is 


1 

M 97 S» 9« 


40 41 42 


43 


i 

1 

S 

«4 


1 

i 

4B 


ALTEHNATING TABLE OR ARRAY 


COMMENTS 
98 99 «0 «l 62 «8 84 eS e« 87 eO «» 70 71 72 T3 74 


PROORAM 
IDENTIFICATION 


h 

ill 

4B 47 48 49 W 9t 


o 

U99D4 


1 

a. 


i 
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S7 




t 
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Lin 
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i 

z 

1 

t 2 


a: 
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3 4 8 


i 

o 

• 


FILENAME 
7 •« 10 11 12 1$ 14 


FIRST 


SECOND 


THIRD 


FOURTH' 


FIFTH 


SIXTH 


SEVENTH 


EIGHTH 


NINTH 


TENTH 


ELEVENTH 


TWELFTH 


PROGRAM 

IDENTIFICATION 




1 


is 

le 1* 


si 


in 

29 24 


i 

U 2e£7 


UZ9 


t 

z 
3031 32 


d 

BB34 


SBSSS7 




i 

4C4I AS 


i 

M44 


i 

4a 4«4T 


i 

z 

i 

40 4B 


i 

i 

00 SI 32 


g 


li 


d 
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g 

^ 
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g 

5 


i 

3 
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8 


L_ 
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1 1 
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1 1 


T 


I 1 


1 


■T-T 


I- 


-n- 
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1 1 
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1 1 
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I"" 
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ir 
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1 
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1 
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re 4-1. RPG II Extension and Line Counter 
Specifications Sheet. 



TABLES AND ARRAYS 



lables and arrays are /groups of data items arranred 
systematically for ready reference. I>3,ch item in a table or array 
must be of the same data type (alphanumeric or numeric) and have 
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the ssme field length and number of decimal positions as every 
other item in the table or array. 

Tables and arrays may be searched for the presence of specific 
items using the IDKUP operation (see "Lookup Operations," Section 
7), and they may be used in calculations and output. 

Tables are searched one item at a time (unless they are in 
sequence and the binary search option is used — see Section 2, 
column 34) until an item is found that matches a certain 
identifier. That item is then made available f or _ use in 
calculatioi^. Arrays may also be sear-chec for a given item, but 
the item is not automatically made available for calculations. A 
specific array item luay be referenced, however, by its location 
in the array relative to the first item. This kind of relative 
referencing is called indexing. Imexirig may not be used v/ith 

When a table name is used as one of the operands in a calculati9n 
specifications line (Section 7) , the item most recently found m 
a IDKbP operation on the table is to be used in the calculation. 
£j)ecific^tions for which an array name is an operand usually use 
all of the array items sequentially in the same operation, i?or 
instance, a number may be added to every item in a numeric array 
by using only one specifications line (see "Table and Array 
Reference" in tiiis section). A single array item must be 
referenced by the array name followed by a comma and the index of 
the item. The index nay be an actu;al number or the name of a 
positive numeric fiald with zero decimal positions, and it may 
never iiave a value less tiian 1 , 



TAIJLE AND ARRAY HAI-lES 

£i3.cli table and array used in the program must be given a name 
I'rom one to six ciiaracters long, lio two tables or arrays may be 
given the sane name, since the names assigned in the extension 
STiecifications are uf;ed throughout the prograin, Each table njame 
must be at least tiiree characters long and begin with the letters 
TAB. Array names cannot begin with the letters TAB; they must be 
assigned other identifying characters. Any name assi^^ned m 
columns 2^i-^2 which does not begin with TAB is considered an 
array r:ame. 
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TABLE AND ARRAY TYPES 



Tables and arrays described in the extension specifications can 
be loaded at one of three different times: compilation time, 
pre-Hsxecution time, or execution time. These loading times 
separate the tables and arrays into three corresponding types. 



Compile Time Tables and Arrays 

Compile time tables and arrays are loaded at compilation time and 
compiled along with the source program. They become a permanent 
part of the resulting object program. To effect a permanent 
change to a compile time table or array, the source program must 
be recompiled with the revised table or array. 



Pre~£xecution Time Tables and Arrays 

Pre-execution time tables and arrays are loaded with the object 
program before any of the non- table or non-array input files are 
read, calculations are done, or output functions are performed. 
The load must be completed before actual program execution 
begins. 



Execution Time Arrays 

Execution time arrays are loaded after program execution begins. 
Loading is accomplished when the arrays are read in as input data 
as described on input specifications forms (Section 6), or when 
they are created during calculations in the program. 



ADDITIONAL TABLE AMD ARRAY TYPE DESCRIPTION 

Tablcis and arrays aan be further described as short, full, or 
related. 
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Short Tables and Ai-ray s 

Short tables and arrays are those in which not all of the entries 
contain data. Each short table or array must contain at least one 
item. In numeric tables and arrays, the unused items are filled 
with zeros. In alphsmumeric tables and arrays, the unused items 
are filled with blsmks. Items can be added or replaced during 
execution time by rejiding them in from input records or creating 
them through calculation operations. 



Full Tables and Arrays 

Pull tables and arrays are those in which all possible it€Jms 
contain data. The table or array is full, and nothing more can be 
added to it. 



Related Tables or Arr:ays 

Related tables or arrays are tables or arrays that are u£;ed 
together. Each item in the first table or array is associated 
with e corresponding item in the second table or array which 
Fives additional information. Although all items within one table 
or array must have the same characteristics, corresponding items 
in related tables or arrays may have different characteristics 
from their counterparts. Related tables and arrays should have 
the same number of entries. Care should be taken if they do not, 
since a IDKUP search stops at the end of the snorter table (see 
Section 7, "Operation Codes")- 



TABLE mi) ARRAY INPUT RECORD CREATION" 

Input records for compile time and pre-execution time tables and 
arrays must follow ccirtain rules: 

The first table or array item entered on each record must 
begin in the first position of the record. 

Two items may not be separated by spaces on a record unless 
the spaces are part of one of the items. 

It is not nece£3sary for the entire record, to be filled with 

items, but an item must be placed in the first position. The 

remainder of the record nay he composed of blanks or 
comments. 
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All records for a table or array, except the last record, 
must contain the same number of Items. 

An item cannot extend from one record onto the next one. The 
entire item must be on a single record. 

Related tables or arrays can be described either separately 
or in alternating format, where the corresponding items are 
described on the input record as a single table or array 
entry. Each alternating table or array item is entered 
immediately following the item of the table or array to 
which it corresponds. The combined item lengths of two 
tables or arrays described in alternating format must 
therefore be less thsm the maximum record length for the 
device being used. Tables may not alternate with arrays, or 
vice versa. 



TABLE AND ARRAY LOADING 

Tables and arrays can be loaded at compilation time, 
pre-execution time, or execution time. The rules for loading them 
vary according to the time at which they are loaded. 



Compilation Time 

Tables and arrays that are loaded at compilation time are 
compiled along with the RPG II source program, and they become a 
part of that program. Compile time table or array records are 
loaded immediately following the source program. Each table or 
array must be separated by a record with ** in positions 1 and 2. 
Since these characters are treated as delimiters, they cannot be 
entered in the first two positions of a data record. The last 
compile time table or array must be followed by an ending record 
with /* in positions 1 and 2 (see Figure 1-2 for source deck 
arrangement and delimiters). Compile time tables and arrays must 
be loaded in the same order as they are described on the RPG II 
Extension Specifications Sheet. 

A compile time table or array description must have an entry in 
columns 33-35 (number of items on each record) of the Extension 
Specifications Sheet. It must not have a "from" filename entry in 
columns 11-18 or a packed/binary entry in column 43 or 55. 
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Pre-Execution Time 

Pre-execution time tables and arrays do not become part of the 
source program but are used like any other data file by the 
object program. Pre-execution time tables or arrays are loaded 
prior to any other processing-. An ending; card containing /* in 
columns 1 and 2 must follow every pre-execution time table or 
array unless two or more tables or arrays are loaded from the 
same device. In this case, each table or array except the last is 
followed by a card with ** in the first two columns. The last 
table or array is terminated by /*. Tables and arrays loaded from 
the same device must be loaded in the same order as they are 
described on the RPG II Extension Specifications Sheet. When 
errors are encountered during loading, additional information 
about each error is displayed on the console, provided the 
console has been defined as the log device. 

A pre-execution time table or array description must have a 
"from" filename entrv in columns 11-18 and a number of items on 
each record entry in columns 33-35- Packed or binary field 
entries may be made in columns 43 and 55 if they are appropriate 
for the device. 



Execution Time 

Execution time arrays may be loaded from input records or by 
instructions coded on the Calculation Specifications Sheet. 
Tables may not be defined as execution time tables. 

An execution time array description cannot have a "from" filename 
entry in columns 11-18, a "to" filename entry in columns 19-26, 
or a number of items for each record entry in columns 33-35 of 
the Extension Specifications Sheet. 

Execution time arrays that are loaded from data in input records 
must be fully described on the Input Specifications Sheet, as 
well as on the Extension Spec ificati 9ns Sheet. When execution 
time arrav data is to be read in packed or binary format, an 
entry must be made in column 43 of the Input Specifications 
Sheet. The field location columns of that sheet (columns 44-51) 
are then used to describe the record positions the array data 
occupies in the packed or binary format. Columns 4C-42 of the 
Extension Specifications Sheet are used to define the unpacked 
decimal length of each array item. 

Input specifications may be coded in several different ways. The 
coding method that is selected depends on the number of input 
records needed to load the array and the location of the array 
items on each record. Array information that occupies consecutive 
positions in a single record can be defined and loaded using a 
single input specifications line. Array items that are scattered 
through one or more records must be defined and loaded one or 
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more at a time. A specifications line may specify several array 
Items with or without an index. If no index is specified, the 
items are put at the beginning of the array. If an index is 
specified, the items are put in starting at the place indicated 
cjy the index. 

When array information is contained in two or more input records, 
the data in the first record may be defined in the input 
specifications using either of the two methods stated above, 
bubsec^uent array items from the other records should be defined 
individually. Variable indexes and/or record identifying 
indicators should be used to avoid overlaying the data from one 
record with the data from a later record. 

Since an RPG II object program processes only one record at a 
time, the entire array cannot be processed until all records 
containing array information have been read and all the 
information has been moved into the array fields. Por this 
reason, it is sometimes necessary to suppress calculation and 
output operations until the entire array has been read into the 
system. This can be done using control level indicators (see 
Section 6). ^ 

The input field specifications for describing and loading an 
array from a single input record are as follows : 

I is entered in coLumn 6. 

Columns 7 through 42 are left blank. 

Column 43 ^contains a P for packed decimal record format, B 
for binary format, or blanks for unpacked decimal format. 

The field location of either an entire array of consecutive 
itoas or an individual item of the array is entered in 
columns 44-51 • The beginning location is entered in coltmns 
44-47 and the ending location is entered in columns 48-51, 

Column 52 may be left blank. If a decimal position is 
entered, it must be identical to the decimal positions entry 
in the Extension Specifications Sheet. 

The name of the array is entered in columns 53-58. The name 
miast agree with the entry made in the Extension 
Specifications Sheet. The array name and index must be used 
for each item when individual items are beiijg defined. 

Columns 59-62 are left blank. 

The field record relation indicator is entered in columns 
65-64 in accordance with the rules supplied for field record 
relation entries in Section 6. 

Columns 65-74 are left blank. 
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TABLE MD ARRAY CHANGES 

WbPn a table or array name is used as the result field in an 
Si^hmltif o? move operation (see Section 7, "Operation Codes-), 
thp table or array items may be changed during the execution oi 
thi ^ject pi^m. Additionally, tny type of table or ariw 
(compile time, pre-execution time, or execution time) can be 
added to or chined using the Input Specifications Sheet or 
Calculation Specifications Sheet, Table and array changes are 
SSly in effect until execution of the object program is 
completed. The table or array reverts to its original entries 
when the program is next executed. 

Chane'es can be made permanent only if the original data is 
chSIS. ^anSs made ^during progmm execution can be m^ide 

T^^^t by writing or punching them <^^\Z\'S.^ o^trrlv 
records, rather than the original records, m the table or array 

input file. 



TABLE AND ARRAY REFEREIiCE 

Either an entire array or an individual item in an array can be 
referenced using calculation specifications. The array name may 
be used without an index with the following operations: 



ADD 


MHiiZO 


MOVE 


SUB 


DEBUG 


MHLZO 


MOVEL 


XEa)T 


DIV 


1-ILHZO 


MULT 


Z-ADD 


LCKUP 


MT,T7.0 


SQRT 


Zr-SUB 



FvfPTit when thev jare used for the XEQOT and lOKUP opef^tie«ns. 
MStEr ^ ind Hctof 2 cannot contain array names unless th6 
result field also contains an array name (see Section 7, columns 
18-27, 33-42, and 43-48). 

Several operation codes can be used only with an individual item, 
rather than an array name alone: 

BITOE DSPLY 
BXTOW TESTE 
COMP TESTZ 

The array name, including tJae comma and index, must fit in the 
factor or result field in which it is used. 
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When array names are used without an index in calciilations. the 
following jnules apply: 

Whenever the factors and the result field are arrays with 
the same number of items, the operation is performed 
sequentially. The first item from every array is used first, 
then the second item, and so forth, until ^n items in the 
arrears have been processed. If the arrays do not have the 
same number of entries, the operation ends when the last 
item of the array with the fewest items has been processed. 

Whenever one of the factors is a field or constant, and the 
other factor and the result field are both arrays, the 
operation is performed until every item in the shorter army 
has been used. The same field or constant is used in all of 
the operations. 

Since multiple operations are being performed, resulting 
indicators (columns 54-59) cannot be used except for the 
XFOCm and LOKUP operations. ^ 

When a table name is used in calculations, the operation is 
usually performed using only the table item last found in a LOKUP 
operation. The item is treated as any other single item would be. 
Only the lOKUP and XFOOT operation codes can reference all of the 
items in a table at one time. 



TABLE AID ARRAY OUTPUT 

When the last record indicator (LR) is on, entire tables and 
arrays, except for execution time arrays, can be written or 
punched out at the end of the job under automatic control of RPG 
II. Execution time arrays cannot be written or punched out at 
end-of-^ob lander RPG II control. To indicate that a table or 
array is to be output, the name of the output file to be used is 
specified in columns 19-26 of the Extension Specifications Sheet. 
This causes the program to write out the entire table or array 
with Jill changes included. The Output-Eormat Specifications Sheet 
(Section 8) is used in conjunction with the Extension 
Specifications Sheet when tables and arrays are to be written out 
in a format different from the one in which they were read in. If 
execution time arrays need to be written out, the output-format 
specifications can be used to do so. 
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To indicate that an entire table or array is to be written on a 
sinJ:e output record, the table or array is described on the 
S^fuLpoSat Specii-i^tions Sheet along with any other fields 
fS?"thf ^Scordf cSi^ 32-3^/ of the output specif ications must 
rontain the same table or array name as the one used on the 
S?eSion Specifications Sheet, Imd columns 40-43 must contain 
Se ?iio?d pSlition where the last field of the array is to end. 

If an output record is to contain only certain items from a table 
or S^rav! the items are described on tHe output, sheet in the same 
SL^ noraal fields, either by an array name with an index or by 
a^tSle ^e Sied' as the "Afield name. Table na^s on the 
SutpS!£lox^t Specifi^tions ^Sheets oause the last found table 
entry to be written out insteaa of the entire table. 

wh<=>n nn entire ajra-av is to be edited, any editing specified 
aS?lier e^Saiiy t?aL. items in the eirray. Il differing editing 
?^ii?^meSs eLst for Individ^ items, „these^||^^"^^fS? 
rSerenced individu^Oly. (See Section 8, "fidited Fields, tor 
more information on editing.) 

When an edit code or edit word is spejcified on the output sheet 
fol aT ^tire array, edited array items are separated by two 
blanks each (see Section 8, "BcLited fields";. 



TABLE MD ARRAY DESCRIFXIOI^ 

One extension specifications line is used for each table or array 
to bldefined. The columns in which entries should be made depend 
uSon whether a single table or array or alternating tables or 
S??2v5 Ire to be loaded, and the loading time (compilation, 
??e?SecStion, or execution). When only one table or array is 
?^?^ described columns 11-45 are used. When tables or arrays 
^e"feiS|^desSiW^ii^terrUtI^ format, jg-^S"^ IJ^^b are used 
for the first table or array and columns 46-57 of the saice line 
are used for the second. 

Comoile time tables or arrays are described in columns 27-45. 
SSxIcution time tables and arrays are described in columns 
12?18 Sid 27-45. Execution time arrays are described only m 
columns 27-32 and 36-45- 

rnmnilf. time and prtj-execution time arrays can include entries in 
rolSnl ls!2M"to'nilename) if the take or array described is 
S T^ written^ or punched at the end of the job, and in columns 
46-57 to describe an alternating taMe or array. Execution time 
trills camot have "to" filename and alternating array 
specifications . 
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Tables and arrays may be specified on the extension sheet in any 
sequence; however, the sequence in which they are specified 
determines the order in which they will be loaded. Compilation 
tame and pre-execution time tables and arrays can be mixed. 



CQDIHG INSTRUCTIONS 



Detailed descriptions of the extension entries to be coded on the 
specifications sheet are defined below. Extension specifications 
ar^ used to complete the description of record address files as 
well as to describe tables and array. Columns 7-80 may be used 
for comments (see Section 3, columns 7-14). 



PAGE NUMBER (Columns 1-2) 

Entry Description 

01-99 Specifications sheets are numbered 
sequentially. 

More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded Extension Specifications Sheets must 
be grouped together sequentially and arranged with the other 
specifications sheets in the following order: 

Control Card and Pile Description 

JExtension and Line Counter 

Input 

Calculation 

Output-Format 

The specifications sheets shou3.d then be numbered in ascending 
sequence. ^ 
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LIKE NUMBER (Columns 3-5) 

Entry Description 

Any ntanber line numbers are assigned in 
ascending sequence. 

Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the progprajuaer's convenience. The unnumbered lines 
below the preprinted, numbers can be used for additional lines or 
to insert a line bestween two completed lines. Column b c^n also 
be used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 



TYPE OF FORM (Column 6) 



Entry I3escription 

E E identifies the extension 

specifications to the compiler. 



"FROM" FILENAME (Columns 11-18) 

Entry Description 

EJLank Either a compilation time or an 

execution time table or array is 
being described. 

Record The name of the record address file 
address used in the file description 
filename specifications is entered. 

Table or The name of the pre-execution time 
array table or array file is entered. 
filename 

The "from" filename entry in columns 11-18 is used to name a 
record address file or a file used for loading a pre-execution 
time table or array. Every pre-execution time table or array 
filename used in the program must be named on an extension 
specifications line. Each entry must begin in column 11 and can 
be from one to eigiit characters long. Since more than one 
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pre-execution time table or array cjan be read from the same file, 
the "from" filename may be the same for more than one table or 
array. When two or more pre-execution time tables or arrays are 
read from the same file, the tables or arrays miast be in the same 
order as they are on the file extension cards and must be 
separated by records with ** in the first two record positions, 

JMo entry should be made in columns 11-18 for compile time or 
execution time tables or arrays, 



"T0« PILENAME (Columns 19-26) 

Entry Description 

Blank Either' an execution time array is defined 

on this line; or the compile time or 
pre-execution time table or array being 
defined is not to be written or punched 
out at the end of the job. 

Input or The name of the file that is processed 
update by the record address file named in 
filename columns 11-18 is entered. 

Output The name of the output file on which a 
filename compile time or pre-execution time table 

or array is to be written or punched at 

end-of-job is entered. 

If a record address file was described in the "from" filename 
columns (11-16), the "to" filename must contain the filename of 
an input or update file. The record address "to" filename is the 
name of the primary or secondary file to be processed by the 
reco3'd numbers or keys in the record address file. 

Columns 19-26 can also be used to specify the filename of the 
output file to be used to write or punch the tables or arrays 
named in columns 27-32 and 46-51. Columns 19-26 should be left 
blank if the tables or arrays are not to be written or punched. 
Coluians 19-26 cannot be used for execution time arrays, since 
execution time arrays cannot be written at end-of-job. 

After all other records have been written or punched, a compile 
or pre-execution time table or array intended for output will 
automatically be written or punched in the same format in which 
it was entered, unless the output table or array is rearranged 
through output-format specifications (see Section 8). Table or 
array output can also be formatted by the use of exception lines 
so that one item is written at a time (see Section 7). 
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TABLE OR ARRAY WAME (Columns 27-32) 

Entry Description 

Blank A record address x'ile is being 

described. (Wo further specifications 
should be entered on this line. ) 

Table or The name of the table or array being 
array name described is enterejd. 

Columns 27-32 are used to assign a name to the table or array 
being described. When alternating tables or arrays are bedng 
described, columns 27-32 must name the table or array whose item 
is found first on the input record. 

The name assigned to a table or array must begin in column 27 and 
must folic w the rules provided in "Table and Array Karnes" in the 
beginning of this section. 



NUMBER OF ITEMS ON EACH RECORD (Columns; 33-35) 

Entry Description 

Blank Indicates that an execution time array 

is being described. 

1-999 Indicates the number of table or array 

items on each table or array input record. 

ColuBins 33-35 are used to specify the exact number of table or 
array items on each table or array input record. The entry must 
end in column 35. Leading zeros are not required. Every input 
record for the table or array except the last record must contain 
the same number of items as the number specified in columns 
33-35. The last record may contain fewer entries than that 
number, but never more. 

When two tables or arrays are described in alternating format, 
each input record must contain the corresponding items from the 
tables written in alternating form. Corresponding items from 
alternating tables or arrays are considered one item and must be 
on the same record. Comments may follow table or array items on 
the table input records whenever there is room. 

Columns 33-35 must be blank for execution time arrays. 
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WUMBER OP ITEMS IN TABLE OR ARRAY (Columns 36-39) 

Entry Description 

1-9999 Indicates the Bjaximim niuBber of table 

or Bxra^ items. 

Columns 36-39 are used to specify the maximum number of table or 
array items which can be contained in the table or array named in 
columns 27-32. The entry must end in column 39. If a table or 
array is full, the number entei*ed in columns 36-39 specifies the 
exact number of items in it. If a table or array is not full, the 
entry specifies the maximum number of items that can be put into 
the table or array. The entry aiLso specifies the number of items 
in a table or array in alternating format (columns 46-51), since 
both Bftist contain the same number. 



LENGTH OP ITEM (Columns 40-42) 

Entry Description 

1-15 Indicates the number of digits in each 
item of a numeric table or array. 

1-255 Indicates the number of characters in 
each item of an alphanumeric table 
or array. 

Columns 40-42 are used to specify the length of each item in the 
table or array named in columns 27-32. The entry must end in 
column 42, Leading zeros are not required. The length of a 
niiraeric item cannot exceed 15 digits, and the length of an 
alphanumeric item cannot exceed 255 ciiaracters. 

When a numeric table or array in binary or packed decimal format 
is described, the unpacked decimal length must be entered (see 
Section 6, "Numeric Pield Pormat")* 5 is entered for a 
two-character (two-byte) binary field and 10 is entered for a 
four-character binary field. 

The length specified in columns 40-42 applies to all the items 
within a table or array. When necessary, leading zeros must be 
added to numeric items and leaiing blanks must be added to 
alphanumeric items to achieve the specified length. 
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When tatO-es or arrays are described in alternating format, the 
entry applies to the table or array whose item appears first on 
an input record. 



PACKED OR ElEARY FIELD (Column 43) 

Entry Description 

Blank Data is either alphanumeric or in 

unpacked decimal format. 

p Data for the table or array is in 

packed decimal f orm.at. 



B 



Data for the table or array is in binary 

format. 



The format of the items in a numeric table or array named in 
columns 27-32 is specified in column 43 as unpacked deciEK3l, 
packed decimal, or binary. (See Section 6, "Numeric Held 
Pormat , " for a discu££ion of formats . ) 

If the item is in pe.cked decimal forniat, the entry must be P. If 
the item is in binary format, the entiy must be B. If the item is 
in either alphanumeric or unpacked decimal format, column 43 is 
left blank. Compile time tables and arrays are always m either 
alphanumeric or uni)acked decimal format (column 43 is left 
blank). 

When tables or an-ays are described in alternating format, the 
entry applies to the table or array whose item appears first on 
an input record. 



DECIMAL POSITIONS (Column 44) 

Entry Description 

Blank The table or array items are alphanumeric, 

0-9 The number of positions to the right of 

the decimal in numeric table or array 
items is specified. 
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No entry is made in caLumn 44 for alphanijmeric tables or arrays, 
but an entry must be made for every numeric table or array. 

As many as nine positio-ns may lie to the right of the decimal in 
numeric table or array items. If no decimal positions exist, the 
entry must be zero. 

When alternating tables or arrays are described, the entry in 
column 44 applies to the table or array whose item appears first 
on an input record. 



SEQUENCE (Column 45) 

Entry Description 

Blank The data in a table or array is not 

in any special order. 

A The data in a table or array is in 

ascending order. 

D The data in a table or array is in 

descending order. 

The sequence entry is used to specify whether the data in a table 
or array is in ascending or descending order. The table or array 
is then checked when it is loaded for the sequence specified (see 
Section 6, "Sequence"). A severe error occurs if a pre-execution 
time table or array is out of sequence, and the program halts 
immediately. Execution time arrays are not checked for sequence, 
but column 45 must contain an entry if high or low LOKUP is to be 
used (see Section 7, "Operation Codes"). 

When alternating tables or arrays are described, the sequence 
entry applies to the table or array whose item appears first on 
an input record. 
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ALTEmAlWO TABLE OH ARRAY (Columns 46-57) 

If alternating tables or arrays are being described, the 
specifications for the second table or array are entered .in 
columns 46-57. Tables must alternate with tables, and arrays must 
alternate with arrays. The table or array described in the:3e 
columns must be loaded in alternating format with the table or 
array named in columns 27-32 of the same line. An execution time 
array cannot have an alternating array. 

Entries in columns 4€'-57 must follow the same criteria given for 
the corresponding columns, 27-32, used for the first table or 
array described. 



COMMENTS (Columns 58-74) 

Entry De?scription 

Any These columns are used for programmer 

charac t er s comments . 

Since columns 58-74 are disregarded by the compiler, they can be 
used to maice notatioiis. These will appear on the program listing 
after compilation and may assist the programmer in remembering 
details about the table or array described on each specification 
line. 

Comments columns serve solely as an aid in documenting the source 
program, and they may contain any ciiaracters in the character 
set. 



PROGRAM IDEWTIFICAIia^ (Columns 75-80) 

Entry D escription 

Any These columns may be left blank or used for 

characters program identification or for comments. 

The program identification field of all cards following the 
control card may contain any characters, including blanks. The 
field may therefore be a continuation of the ccanments field in 
coltonns 58-74. 
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SECgON 5. LINE C OUNTER SPECIFICATIONS 



Line counter specifications are used for printer fjles in a 
program when external controls, such as sensing channel 1? for 
overflow, are not applicable or not desirable. The specifications 
are written on the RPG II Extension and Line Counter 
Specifications Sheet (Plgure 5-1). In addition to their use in 
controlling spacing by relating line numbers on a form to printer 
channel numbers, line counter specifications may alternatively be 
used to indicate the length of the form used in a printer and at 
what line overflow occurs. If no lire counter specif icationr are 
made, the form length is assumed to be 66 lines, and line TO is 
assumed to be the overflow line. 
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RPG II Extension and Line Counter 
Specifications Sheet, 



SECTION 5 PAGE 



CODIi^G Il^STRUCTIOM 



Detailed descriptions of the line counter entries to be coded on 
the specifications sheet are defined below. 



PAGE NUMBB. (Columns 1-2) 

Entry Description 

01-99 The specifications sheets are numbered 

scsquentially. 

More than one of each type of specifications sheet may be used in 
the course of codin^^ the source pro^i-am. To keep the sheets in 
the proper order, the coded Line Counter and Extension 
SDecifi cat ions Sheets must be grouped together sequentially and 
arraniTed with the other specifications sheets in the foiJ.ov;ing 
order: 

Control Card and iile Description 

ibctension and Line Counter 

Input 

Calculation 

Output-format 

The specifications sheets should then be numbered in ascending 
secuence. 



LINE HUMEHi (Columns 5-3) 

Entry Description 

;\ny number Line numbers are assigned in ascending 

sequence. 

Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer's convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 
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TYPE OF Kam (Column 6) 

Entry Description 

L L identifies the line counter 

specifications to the compiler. 



PILEWAME (Columns 7-14) 

Entry Description 

1-8 The output f iJ.e to be printed is named, 

characters 

The filename must begin in column 7. filenames entered on the 
Line Counter Specifications Sheet must also be defined on the 
Pile Description Specifications Sheet. The output device assigned 
to the file specified on the File Description Specifications 
Sheet must be a printer. 

A valid filename consists of one to ei^t characters. The first 
character must be alphabetic; the remaining characters may be any 
combination of alpJriabetic and numeric characters. Special 
characters axe not permitted, and the first character cannot be 
one of the following characters: //, $, or C. Blanks cannot appear 
between characters in the name. Columns 7-EO may also be used for 
comments (see Section 3» columns 7-14). 



IIMES AVAILABI£ OR Lim MO, (Columns 15-17) 

Entry Description 

1-255 Indicates the number of print lines 
available on a page or form. 

The lines available entry specifies the exact number of lines 
available on the page or form to be printed. The entry must be 
right- justified. Leading zeros may be omitted. When no entry is 
made, the standard value of 66 lines is assumed. 
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Columns 15-17 may also be used 1;o relate a report line to a 
channel number. See columns 15-74 for an explanation of this type 
of specification* 

When columns 15-17 are used to specify the number of lines 
available on the pa^ge, an L must be specified in column 53 oi the 
control card. 



PORM LENGTH {FL) OR CHANNEL NO, (Columns 18-19) 

Entry Description 

FL Indicates to the program that 

the form length was specified in 
columns 15-17. 

PL is mancatory in columns 18-19 if the form length has been 
specified in columns 15-17. When FL is used, an L mui>t be 
specified in column 53 of the control card. 

Columns 18-19 may also be used in conjunction with columns 15-17 
to specify a channel number related to a report line. See columns 
15_74 for an explanation of this type of specification. 



OVERFLOW LINE NC. OR LINE NO. (Columns 20-22) 

Entry Description 

1-255 Specifies the line number of the 
overflow line. 

The overflow line number entry specifies the exact point on a 
page or form at which overflow occurs. The entry must be 
right- justified. Leading zeros are not required. When the 
overflow line no. entry is left blank, the standard value of 60 
is assumed. 

Indicating a line slightly above the bottom of the page as the 
overflow line ensibles totals information to be included between 
the specified overflow line and the bottom of a printed page or 
form. When a splice, skip, or print operation (see Section 8, 
columns 17-22) carries printing one line below the overflow line, 
the overflow indicator turns on to signal that the end of the 
page is near. When the overflow indicator is on, the progiam 
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automat ically prints the extra information before forms are 
advanced to the next page. Detail lines are printed, if this part 
of the program cycle has not already been completed: total lines 
are printed; and total, lines conditioned by the overflow 
indicator are printed. 

The overflow line should be placed high enou^ on the page to 
allow for this wrap-up and for any special printing. 

Columns 20-22 may also be used to relate a report line to a 
channel number. See columns 15-74 for an explanation of this type 
of specification. 



OVERlfliOW LINE (OL) OR CHAMKEL KO. (Columns 23-24) 

Entry Description 

GL Indicates to the program that an 

overflow line number was specified in 
columns 20-22. 

The OL entry is required in columns 25-24 whenever an overflow 
line number has been specified in columns 20-22. OL is normally 
used if an L is specified in column 53 of the control card. 

Columns 23-24 may also be used to relate a channel number to a 
report line. See columns 15-74 for an explanation of this type of 
specification. 



LIWE MO. and CHAMEL UO. (Columns 15-74) 

Entry Description 

1--255 Specifies the line number. 

1-12 Specifies the related channel number. 

The fields in columns 15-74 may relate specific line numbers on 
the report to channel numbers used on the Output-JFormat 
Specifications Sheet (Section 8), The line roimbers of the form 
are entered in the line no. columns, and the channel numbers to 
be related to each line are entered in the associated channel no. 
columns. The specifications for the channels may be entered in 
any order. The entries must be right-justif ied. Leading zeros may 
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be omitted. The iiig;liest permissible line number is 255, and the 
highest channel number is 12. 

A form length should not be specified for a file when channel 
numbers are being used. Columns 15-19 should be used to specify 
the first line number-to-channel number relation, or they may be 
used instead of columns 20-24 to specify the overflow line 
number. 

Channels may be used to control the spacii^ on a printed po^. 
The printer carriage control tape illustrated on a print chart 
coding form (see Pigiire 1-5) l^^as 12 vertical lines on it, one for 
each channel. Holes may be punched on the tape along channel 
lines, opposite output lines. If the program encounters a channel 
skip instruction (see Section £, columns 19-22), the printed page 
is automatically advfmced to the next output line associated with 
the given channel. The line-to-channel number relations are 
specified on the Line Counter Specifications Sheet, 

The rules that apply to the printer carriage control tape also 
apply to line counter channel numter assignments. Ordy the 
channels used in the output-format specifications should be 
specified. Several output-format specifications lines may be 
related to one chsinnel. Only a single channel number may be 
assigned to a particular line. Only one line of the Line Counter 
Specifications Sheet may be used for a file, 

Channel 1 is pre-assignea to tne xirst print line on the page, 
and channel 12 is pre-assigned to the overflow line; thus 
"overflow line"/"OL" and "ciiannel 12" are synoncanous terms and 
should not be used together. If channel 1 is not assigned, line 6 
is assumed to be tne first print line of the page; and if channel 
12 is not assi^ed, line 60 is assumed to be the overflow line. 
Both channels 1 and 12 must be assigned if automatic skipjdng 
from the end of a form after channel 12 to the beginning of the 
next form at channel 1 is desired. 
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figuie 5-2. Report Line-to-Chaninel Number Relation. 



figure 5-2 shows how entries are made to relate a report line to 
a channel number. On tte first line, entries in columns Vj-24 
specify a form length of 50 lines (50FL) and assign overflow at 
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line 45 (450L) for file JPLEIA, An L must have Tseen specified in 
column 53 of the control card (Section 2, coliamn 53) • 

Mo form lenfiith is specified for file niE2B, tout all the entries 
ill coluions 15-29 are used to relate report lines to channel 
numbers. The fifth line of the report is assigned to channel 2, 
tJhie tenth line of the report is assigned to channel 3, and the 
fiftieth line is specified as the overflow line hy assigning it 
to chEinnel 12. The first print line of the report is assumed to 
be line 6* 

i'igure 5-2 shows the two ways in \(diich the line counter 
specifications can be coded, men form length and overflow line 
entries are used they should be placed in columns 15-24. Vhen 
channel number assignments are used, specifications must begin in 
columns 11^19. 



PJROGRAM ID£WTIPICATION (Columns 75-80) 

Entry Description 

Any These cdlimns may be used for programmer 

characters comments. 

The program identification entry of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programii«r comments, if desired. 
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SECTION 6« IWPUT SPECIFICATIONS 



Data files, x«c cords, 
input try an obiect 



and fields of the records to be iised as 



_^ . , program are described cm th^ RPG II Input 

Specifications Sheet (figure 6-1 J, Specifications for the 
descriptions fall into two dl^sions: file and 



record type 
identiH cation entries, specified in columns 7-42; and field 
description entries, specified in columns 4>-74» The field 
description entries must start at least one line lower than the 
file and record type identification entries* 
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Figure 6~U RPG 11 Input Specifications Sheet, 



RECORD INDICATORS 



A single file can contain more than one type of record, and 
different operations can be performed for each type. To control 
the processing of the various record types, a record indicator is 
assigned to each type in columns 19-20. When a record type is 
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selected for processing during tne execution of the object 
proeram, its corresponding record indicator is turned on to 
ideStify the record type to the system. (All other record 
indicators are off unltjss a chained file is being processed: more 
than one record in a ctiain file can be processed at a time, ; Once 
the indicator is turned on, the system knows what record type has 
been selected for processing and the proper operations can be 
performed. 

Columns 19-20 can be used for three pui-poses; to specify record 
idelSfvinT indicators, to indicate look-ahead fields, or to 
delig^te^a sprSd ai^d trailer. (See Appendix B Tables B2 and 
B3; and Section 7, "Indicator Setting Oi)erations," for indicator 
summaries . ) 



RECORD IDEi^Tmil^G II^DICATCRS 

Record identifying Indicators are used to distingirlsh between 
record types or to check for a record type tlriat causes an error 
condition. 



LOOK-AHEAD FIELDS 

The use of look-^ahead fields allows the System to look at 
information in fields on the next record available for processing 
in an input file. In update files, the entry refers to a field in 
the record currently being processed. Look-.ahead fields cannot be 
specified for chained or demand files, or as array fields. 

Once the last record from a file has been processed, every 
look-ahead field for the file is automatically filled with 9 s 
which remain in the fields until the job is ended. 



SPREAD CARDS 

Spread cards allow one or more transact ionsj (trailers) or items 
of information to be linked to a single header. RPG II s spread 
card capability eliminates the need for a separate header card 
for each transaction (trailer portion). A single card can contain 
the header and all of the transactions. The information can be 
compressed so that a trailer portion may consist of as many 
fields as are necessairy; however the same fields must appear in 
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each trailer portion following the hinder. A trailer portion 
cannot be split between two records. 



CilAlUCTER STRUCTURE 



The structure of a character is important in its use as part of 
the record code (columns 21-41). Each alphabetic, numeric, or 
special character is represented by a unique combination of 
punches in a keypunched card. Each punched character consists of 
two parts: a zone portion, and a digit portion. When the 
character is read into the computer, it retains this composition 
even though it has been translated into eight magnetic bits for 
computer representation in storage. As a result of the 
translation, the representation of a character in the machine may 
not be identical to its confi^ration on a keypunch card; those 
characters with the same zone punch in the card may have 
different zone punches in the computer. Characters are stored in 
the machine in EBCDIC form. It is the EBCDIC machine 
representation of a character that must be considered in such 
functions as sequencing, testing, identifying, or comparing 
records . 

All characters can be arranged in a certain order which is 
governed by the way their zone and digit portions are represented 
in the machine. Thus each character's machine representation will 
have a special position in relation to all others in a collating 
seouence. 



NUMERIC FIELD EORMAT 



ITie entry in column 43 describes the format of a numeric field. 
Three different numeric field formats are used in RPG II: 
unpacked decimal (Figure 6-2), packed decimal (Figure 6-3), and 
binjary (Figure 6-6). 



UNPACKED DECIMAL F0R14AT 

In unpacked decimal format, each byte of computer or disc storage 
can hold one alphabetic, numeric, or special ciiaracter. Each byte 
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is divided into eight bits: a four-bit zone portion followed by a 
four-bit digit portion.. Each digit in a decimal number contains a 
zone position which indicates whether the number is positive or 
negative. In unpacked decinial forinat, only the zone of the 
rightmost byte & the rightmost digit serves as the positive or 
negative sign. 
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Pigure 6-2, Unpacked Decimal Format. 



PACKED DECIMAL FORMAT 

In packed decimal format, eech tyte of storage is divided into 
two four-bit digit portions and no zone is used, ihe plus or 
minus sign for a imcked decimal field is contained m the 
rightmost portion of the rightmost byte. 
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Figure 6-3. Packed Decimal Format, 
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PACKED DECIMAL fiEPRESENTATIOH 



!Che pacloed decimal , coding system uses a four-Mt code to 
represent a numeric cbaracter, but to conserve space the zone 
bits ere excluded and a sign bit is added to the least 
significant byte. If the number is negative, the rightmost four 
bits of the least significant byte contain 1101. If the number is 
positive, the rightmost four bits of the least significant Iqrte 
contain 1100. Pigure 6-4 illustrates i this convention with the 
number -4,902. 
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Pigure 6-4. Packed Decimal Representation in the Computer. 

When an ^eternal device enters unpacked numeilc data, each digit 
is preceded by a four-bit zone byte. Figure 6-5A illustrates the 
greater quantity of ii«mory which would be required if the System 
could not pack the decimal codes before they were stored, and 
Figure 6-5B illustrates the number as it wcxild aggear in memory 
if it were packed. Both figures use the nvmber 5,r 
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Figure 6-5» Memory Required for Packed vs. Unpacked Wimieric Ebta, 



Packed fields are positive if the sign is a hexadecimal F, A, C, 
E, 0, 2, 4, 6, 7, or 8. Packed llelds are negative if the sign is 
a hexadecimal B, D, 1, 3» 5, or 9* 
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BII^^ARy FOfu\AT 



Binary format numbers are in twos complement form. In binaiy 
format, each field on disc must be eitiier two or four bytes long. 
Two bytes of disc s torsive can contain up to five decimal numbers, 
and four bytes of disc stora^ can contain up to ten decimal 



numbers. 



Two~bvte binary fields contain a one-bit sign followed by a 
IS^if numeric value so that in binaiy format any decimal n^Mher 
UP to 32,767 requires only two bytes of disc storage, at the 
moc;t Por each two-bvte binary field stored on disc, the system 
SStomatiSLir sets Side f iv^ dii^its of storage to accommodate 
the field when it is converted to packed format. 

Four-bvte binary fields contain a one-bit sign followed by a 
31^it numeric value; thus in binary format ^y decimal number as 
hirh as 2,147,483,^7 requires a maximum of only four bytes of 
disc storage! The system automatically sets aside ten digits of 
memory storage to accommodate each four-byte binary field stored 
on disc when it is converted to packed format. 
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rigure 6-6. Binary format. 
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FIELD NAMES 



A field name Is used in columns 53-58 to identify a particular 
field, array, or array item in an input record. Each field in 
each record type must be given a unique name from one to six 
characters long. The assigned name can then be used throughout 
the program whenever the field is referenced. 

Each field name assigned requires a separate line on the Input 
Specifications Sheet. Waines of the fields must be indicated for 
all types of records, however only the fields that are used need 
to be named. Fields which are reaa in from a carxi are limited to 
the length of one punched card. 

All fields in a specific record type should be assigned different 
names, since only the field described last is used if fields are 
identically named within a record type. If they are the same 
length and contain the sane type of data, however, fields from 
different record types may have the same najne regardless of their 
location in each record type. Although each field with the same 
name still requires a separate description, the OR relationship 
may be used to avoid duplicate coding. 

If the form or report to be output consists of several pages, it 
is usually desirable to number the pages. liage numbering normally 
begins with page 1 and is handled automatically when the 
pre-defined RPG II field name PAGE, PAGE1 , or PAGE2 is entered in 
the (Xitput-Format Specifications Sheet (see Section 8, columns 
32-37), however the field name entry can be used in the Input 
Specifications Sheet to indicate that page numbering is to start 
at a page other than page 1. 



CONTROL FIELDS 



A control field is a field to which a control level indicator 
(L1-L9, columns 59-60) has been assigned to indicate the point at 
which specified operations are to be performed. 

Whenever a record v/hich contains a control field is selected, the 
data in the control field is compared with the data in the 
control field of the previously selected record. All records with 
the same information in the control field form a control group. 
If two control fields are not the same, a control break occurs, 
and the control level indicator is turned on, A control break 
aJLlows operations coiKiitioned by the control level indicator to 
be performed before a new record is processed (see Section 7, 
columns 9-17 and Section 8, columns 23-31). Undesirable control 



SflCTIOW 6 PAGE 8 



breaks may occur if all the record types within a given file do 

not have the same number of control fields. 

A control break most commonly occuxs after the first record 

ro^f^n^r^ rr^ni^: .si^^^sl ^i. Hfi/rT^^^ 

records are not being compared. 

u-i+vi-iv. th^ same record type, record columns in control fields 
SsilSed^^diffSlnt'^control Ifv'el ^f ^^^^^ors may overlap b^ 
total number of columns assigned as control fields, when eacn 
control^vel is counted only once, must not exceed 255. 



I^UMERIC CX3JSTR0L FIELDS 

Tf a control field is specified as numeric in column 52, £0.1 
control fields for which "^the same control level indicator iias 
been specilied are considered numeric. 

rnrit-rni fields are initialized to hexadecimal (logical) zeros, or 

iSr^A Se *!=t»^lL^^d"lu l-ielS ore treated a. unsigned 
fields with the nimber of deciEal jcsitions ignored. 



SPLIT CONIEOL i I ELDS 

A =„m- r-nntr-ol field is a oontrd field that is made up of two 
^r ^Sire cSmSL'd^or 'Unconnected fields on a decora The same 
rontrol level indicator is assignea to all parts of a split 
control field. Th^ imicator-ilaggea fields are then comDined by 
?he progi^ in the order specified in the input specifications 
and treated as one control field. 

A c^inp-le control level indicator is assigned to all portions of a 
LfitcoStrol field. Since field BEimes are ignored in. control 
iSiif oSSJat ions, fields from different record types which have 
S a^sSSed toe sa^e control level indicator may have the same 



name. 
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If the field, names are different, the length of the portions of a 
split control field may vary for different record types, or the 
field may be split in some record types and not in others. In 
both cases the total length of the portions of the split field 
must be the same in all record types. 

If the same control level indicator is used in different record 
tyj)es or files, the control fields associated with that control 
level indicator must agree in length and content, containing 
either alphabetics or numerics. The format of the portions of a 
split control field cannot vary; all must be packed decimal, or 
all. must be alphabetic. 

A numeric split control field may contain more than 15 characters 
if any one portion of the split field does not ex;ceed 15 
chsxacters and the sum of all the components of the control field 
does not exceed 255 characters. 



COKTROL LEVEL IKDICATOES 



Control level indicators always turn on after the first record of 
a control group is read, to indicate that a change in a control 
field has occurred. Since indicator LO is always on, it can never 
be used as an assigned indicator in the input specifications. 

Control level indics.tors are used in columns 59-60 to signal that 
operations are to be performed on only the first record in a 
control group; that operations are to be performed after all 
records with the same control field information (all records in 
the control group) have been read; or to print totals 
information. (Control level indicators are also used as record 
indicators in columns 1S-20, and as field record relation 
indicators in columns 63-64. ) 

Control level indicators are assigned to control fields in the 
order of the fields' importance, but they need not be assigned in 
any sequence and gaps can occur in the control levels assigned. 
Before an indicator is assigned, each field should be assessed 
for its importance in relation to the other control fields, and 
the indicator chosen accordingly. Larger numbers are higher in 
rank than lower numbers. All indicators with a lower rank 
automatically turn on or off when a higher-ranking level break 
occurs J for example, when an L3 control break occurs, control 
level indicators LI, L2, and L3 all turn on. 

Control level indicators can be turned on or off by operation 
codes SETOld and SETOP (see Section 7, "Operation Codes"), however 
control level indicators lower in rank than the one specified do 
not turn on or off in this case. 



SECTION 6 PAGE 10 



MULTIPILE PROCESSING 



The selection of records for processing from more than one fi.Le 
is called raul.tifile processing. Although records are always read 
from a primary file eind one or more secondary files in multifile 
processing, the method used in selecting them is governed by the 
presence or absence of match fields in the records. 

If match fields are not specified, the primary file is processed 
first and the secondai-y files are processed in the order in which 
thev are described in the file description specifications. If 
match fields are spejcified (columns 61-62), fields from records 
in the primary file are compared to fields from one or more 
secondary input or update files for a matching record. 



MATCH FIELDS 

When the match fields method of record selection is used, records 
are selected according to the contents of specified fields. One 
record is read from every file and specified fields in each 
record are compared to the primary file for a match. Whenevei- a 
record from the prim^ary file matches a record from the secondary 
file, the primary file record is processed first, then the 
matching secondary file record is processed, unless ^another file 
is forced (see Section 7, "Operation C<3des - lORCE"). I'iie record 
indicator (columns 19-20) is on at the time the record is 
processed to identify the record type just selected and control 
the type of processing that takes place. 

If the records are in ascending order, the record with the lowest 
match field is selected for processing. If the records are in 
descending order, the record with the highest match field is 
selected. 

After a record has been selected from a file and processed, the 
next record from that file is read. It is compared for a match 
field at the beginning of the next program cycle, using for 
comparison the records that were not selected during the previous 
cycle. Match comparing continues in the same manner until all the 
records in all the files have been processed. 

Records can be matched by comparing one field or many fields. 
When the primary record field matches a field m one or more of 
the secondary records, the matching record indicator (I^IR) turns 
on. The matcHing record selected for processing is determined by 
the priority of the files from which the records came. 
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A record for which no match field has been specified is selected 
before records with specified match fields, and is processed 
inmiediately after the record it follows, with the MR indicator 
off. If this record type is first in the file, it is processed 
first even if it is not the primary file. If match fields have 
not been specified for two or more of the records being compared, 
the order of their selection is determined by the priority of the 
files from which the records came. 

Match fields are not required for all the files used or for all 
the record types within one field; however at least one record 
type from two files irust have match fields if files are ever to 
be matched. Sequence checking, alone, is performed if match 
fields are specified for only one file. 



MATCHIJNG HECORD II^DICAI'OH 

The MR indicator is used to condition calculation or output 
operations for a selected record with a match field. The 
indicator turns on when a specified field in a primary file 
record matches a specified field in a secondary file record. The 
indicator is always set on or off before any calculation 
operations not conditioned by control level indicators are 
performed (see Section 7, columns 7-t), and retains the setting 
for one complete program cycle. If all primary file records match 
all secondary file records, the MR indicator is always on. If 
record types are read for which no matching fields have been 
specified, MR turns off. 



CODING IWSTRUCrrONS 



Detailed descriptions of the input entries to be coded on the 
Input Specifications Sheet are defined below. 



PAGE NUMBER (Columns 1-2) 



Entry Description 

01-99 The specifications sheets are numbered 

sequentially. 
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More than one of each type of epecif ications sheet mav be used in 
the course of coding; the source program. To keep the sheets in 
the proper order, the coded Input Specifications Sheets should be 
grouped together sequentially and arranged in the following 
order : 

Control Card and Pile Description 

Extension and Line Counter 

Input 

Calculation 

Output-Format 

The specifications sheets should then be numbered in ascending 
sea uence. 



LIKE KUIIBER (Columns 3-5) 

Entry Description 

Any number Line numbers are assigned in ascending 

sa:juence. 

Line numbers are preprinted in columns 5-4 of the specifications 
sheet for the programmer's convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in .ascending order. 



TYPE or FOm (Column 6) 

Entry Description 

I I is preprinted to identify the input 

specifications to the compiler. 
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pile; and record type ICEI^TIi'ICATIOW BVjlRIES 



FILMAME (Columns 7-14) 

Entry Description 

1-8 The input or update file being 

characters described is named. 

Every input or update file named on the Input Specification Sheet 
must previously have been described on the iile Specifications 
Sheet. The exact filename originally chosen must be used and must 
begin in column 7. If the filename is left blank, the last 
filename entered is assumed to be the file being described. 

The filename is entered on the first line containing information 
relevant to the records in that file. The information on the 
following lines is considered part of the description of the file 
named until a new filename is entered in columns 7-14. Thus it is 
not necessary to repeat the filenan-e entry when more than one 
line of description is used for a file. All records and fields 
for a file must be completely described before a new file is 
named for description. Columns 7-80 may also be used for comments 
(see Section 3» columns 7-14). 



^BQUHJCE (Columns 15-16) 



Entry Description 

Any two Secuence checkinp; is not to be done, 

alphabetic 

characters 

Any two A special sequence is assi^med 

numeric to different record types in a file, 



character; 



d 



Sequence checking is not necessary for every file (see Section 8, 
column 18). If different record types do not need to be in any 
special order, any two alphabetic characters can be entered in 
columns 15-16. An alphabetic entry must be made for chained 
files, however, since sequence checking is not possible for that 
type of file. 
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When both alphabetic and numeric sequence entries are specified 
for record tj-pes within a single file, the alphabetic entries 
must be made before the numeric entries. 

A numeric entry in columns 15-16 assigns a sequence number to 
different types of records within a file so that records with a 
particular identification code may be checked before records of 
another type which bear another identification code. The record 
types are assigned sequence numbers in the order in which they 
are to appear. The first record type must be given the lowest 
sequence number, 01, and the remaining; record types must be 
numbered in ascending order. Sequence numbers need not be 
consecutive as long as they are in ascending order. 

Seouence numbers have no connection with control levels. Sequence 
checking is used solely to ensure that all records of type 01 
precede those of type 02, and so fortlfi.. Sequence checking cannot 
be used to designate the order of records within a record type, 
or to check the data fields within a record (see "Multifxle 
Processing" at the beginning of this section). 

Seouence entries are not made for records in an AND or OR line. 
The sequence entry from the previous line applies to the card m 
the OR line (see columns 53-56). 



KUI-IBER (Column 17) 

Entry Description 

Blank Scjquence checking is not to be 

pesrf ormed ( the sequence entry in 
columns 15-16 is an alphabetic entry). 

1 Only one record of this type is 

present in the sequenced group. 

N One or more records of this type may 

be present in the sequenced group. 

Column 17 is used to designate the numl)er of records of one type 
that are found in the sequence group. When sequence checking is 
not required for the records being described, column 17 is not 
used. The 1 entry indicates that only one record of the type 
specified in columnis 15-16 (sequence) can be present in the 
sequence group. The li entry is used when more than one record of 
the type specified can be present in the sequence group. 

Wo number entry is required for AI^D lines and OH lines. The 
nuiJiber designated in the preceding line is applied. (See columns 
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21-^1-1 for a description of AND lines; columns 53-5£ for a 
description of OR lines.) 



OPaULOW (Column 18) 

Entry Description 

Blank The record type must be present in 

each sequenced group. 

O The presence of the record type is 

optional. 

A blank entry indicates that a record of the specified tyi^e must 
be present in each sequenced group. When sequence checking is to 
be jserformed on record types, the 6 entry indicates that a record 
of the type specified in columns 15-16 (sequence) may or may not 
be present. The entry prohibits a sequence error from occurrinj^. 
An O should be specified only if a numeric entry was made m 
columns 15-16. 

Mo option entry is required for AbiD or OR lines (see columns 
21-41 and 55-5&, respectively). The entry from the preceding line 
is applied to an Ai\;D or OH line. 



RECORD INDICATOR (Columns 19-20) 

Entry Description 

01-99 The record identifying indicator iis used 

to specify a particular type of record 
in a file. 

L1-L9 The control level indicator is used as 

a record identifying indicator to indicate 
that a record type signals the start of a 
new control group. 

LR The last record indicator is used to 

indicate that the ;iob is to end. 

H0-H9 The halt indicator is used to check 

for a record type that causes an error 

condition. 
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** Asterisks are used to indicate 

look-ahead fields in a record. 

TR The trailer specification is used to link 

trailer portions of spread cards to the 
header portion. 

Record indicator entries are used for a variety of situations. 
They can be used as record identifying indicators, to indicate 
look-ahead fields, or to denote spread cards. 

Record indicators can be assigned in any order; there is no 
prereouisite sequence, A single record indicator may be assigned 
for any number of different record types if the same operations 
are to be performed on slLI the types (this is a function of the 
or' relationship — see columns 21-41). They need not be assigned 
at all if the difference in record types is not important or if 
onJ.y one type of record is specified with a file. 

Wo record indicator may be assigned for records entered in the 
MD line of an AND relationship (see columns 21-41). Record 
indicators may be afjsigned in the OR line for every record type 
in the OR relationf;hip that requires special processing (see 
columns 53-58). 

Record identifying indicators comprise four kinds of entries: 
01-99, L1-L9, Ul, and HO-HS. 



01-99 

01-99 is the most frequently assigned record identifying 
indicator. It is Ufsed to identify a specific record type m a 
file that contains two or r.ore types of records. 



L1-L9 

L1-L9, the control level indicator, is used to identify a record 
only when a record type, rather than a control field (see 
"Control rields" at the beginning of this section), determines 
the start of a new control group. If a control level indics,tor is 
used ss a record indicator, only that control level indicator 
turns on during record selection. All lower level indicators 
remain off. (See Section 7, "Control Levels," for more 
information on the control level indicators.) 
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LR is used to indicate that a job is to terminate, (See Section 
7, "Resulting Indicators," for more information on the LR 
indicator. ) 



H0~H 9 

H0-H9, the halt indicator, is used to indicate that checking is 
to be performed for a record type that causes an error condition, 
(See Section 7, "Resulting Indicators," for more information on 
the halt indicator. ) 



Look-Ahead Fields 

Look-ahead fields are imicated by entering asterisks (**) in 
columns 19-20 (figure 6-7)- Look-ahead fields are specified for a 
file rather than for a record type within a file. One set of 
look-ahead fields can be described for each file. The description 
applies to all records within a file, regardless of their type. 
The ** entry is made following the normal field description for a 
file, and the ** line can follow only a file or record type with 
an alphabetic sequence entry in columns 15-16, Columns 17-18 and 
21-74 must be left blank when a look-ahead field indicator is 
used. Look-ahead field descriptions are made in the field name 
columns (53-58) on separate lines following the ** line. 

Look-ahead fields cannot be altered in the program. They cannot 
be used as a result field (see Section 7, columns 47-48) or 
blanked out after they are written (see Section 8, column 39). If 
the information in a record is to be used both before and after a 
record is selected for processing'];, the field must be described 
once as a look-ahead field, then as a normal field. 
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Figure 6-7. Coding for Look-Ahead iields. 



Spread Cards 

Spread cards are indicated by entering TR in columns 19-20 
(Pisure 6-8). Spreaci cards can be specified only when tne input 
card files are desi£;nated as primary or secondary. Look-ahead 
fields cannot be described for spread cards. 

The fields in the header portion of the spread card are described 
on separate specificsition lines immediately following the proper 
flip and record tvpe entries. If a numeric entry is ipade in 
^^lumnT 15^16 of thrlpe5ifi cations line containing ^he f lie and 
record type entries, an E must be entered m column 17 of the 
same line. 

Each field in the header portion must be described as would any 
normal IIPG II field. Only those fields in the header portion that 
are used later in the program need be described. If no field in 
the header portion is used, the header £iel^ specification can be 
omitted and the TR line specified inunediately after the file and 
record type entries. 

TR must be entered in columns 19-20 of a spcif ication line to 
indiSSe that the fields in the first frailer portion are 
described in the specification lines that follow. Columns 7-18 
and 21-74 of the TR lines are left blank. Since all trailer 
portions must be the same length and must include the same 
fields, only the first one must be described. The compiler uses 
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this trailer specification to calculate how many trailer portions 
the record contains and to determine the be^ginning and ending 
positions of each. 

Trailer field description lines are specified immediately 
following the TR line, Colmns 7-43 and 59-62 must be left blank; 
otherwise the trailer field descriptions follow the same rules as 
regular field specifications. 
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Coding for iiipread Cards. 



RECORD COD£ CHAHACTERS (Columns 21-41) 



Record code characters (columns 21-41) are used to identify each 
type of record for processing various operations. If all the 
records are to be processed in the same way, regardless of their 
type* or if only one record type is to be used, columns 21-41 may 
be left blank. 

When more than one record type is to be processed in a file, each 
record type is given a speciel code consisting of a combination 
of characters in certain positions in the record. Any number of 
record code characters may be used. 

On the Input Specification Sheet, seven columns are required to 
identify a single character. The first six columns are used for 
information describirig the ciiaracter, and the seventh column is 
used for the character itself. Information identiiying the first 
three characters of a record code is specified in columns 21-26, 
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28-33, and 35-40, respectively. The character ccxie used to 
identify record types consists of four entries: position, not, 
portion, and cliaracter. The characters themselves are specified 
in columns 27, :J4, and 41. Coding instructions for the three 
groups of ciieracter identification columns immediately follow 
this discussion. 

If more than tJrxi'ee record characters are used, the additional 
characters are described and identiiied on additional ML lines 
of the Input Specifications Sheet. AML lines may be used to 
describe as many chaKicters as are needcjd after the three entered 
in the first specifications line. To specify an AND line, the 
word MD is written in columns 14-16. 

When e record type may be indicated by two different codes, OR 
lines must be used to indicate that either one of the codes may 
be present to identify the record. To write an OR line, the word 
OR is placed in columjis 14—15. 



POSITION (Columns 21-24, 26^31, 35-38) 

l intry Dsscription 

Blank Ho record identification code is 

needed. 

1-9999 The record position of each character 
of the record code is indicated. 

The position entry gives the record location of each character of 
the record code*! The location of the first character is entered 
in columns 21-24, the second in columns 28-31 , and the third in 
columns 35-38. Entries must be right- justified, ending m columns 
24, 31, and 38, respectively. Leading zeros are not required. 



NOT (Columns 25, 32, and 39) 



Entry D escription 

Blank A character is to be present in the 

columns specified by the position entrj^ 

M A character should not be present in 

the columns specified by the position 
entry. 
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The not entry is used to indicate that a certain character of the 
record code should not be present in the position specified in 
the preceding position entry columns. 



PORTIOi^ (Columns 26, 3i, and 4C) 

Entry Description 

C The entire character is used. 

Z Only the zone portion of the character 

is used. 

D Only the digit portion of the character 

is used. 

The portion of a ciriaracter that is used as part of the record 
code is specified in columns 26, 33, and 40. I'he characters are 
stored in EBCDIC fori):. Since several chai-acters iiave either the 
saffie zone portion or tne same digit portion, they must be chosen 
carefully when record codes are established, to avoid ambiguity 
(see "Character Structure" at the beginning of this section.; 



CHARACTER (Columns 27, 34, and 41) 

Elntry Description 

Any Indicates a character used to identify 

character the record. 

The actual characters used in the record code are specified in 
co3.umns 27, 34, and 41. Any alphabetic character, special 
character, or digit may be used. 

Characters are stored in the machine in EBCDIC form, where they 
match characters, zeros, and digits according to the EBCDIC 
codes, except for the following cases: 

The character & (ampersand) Irias the same zone as the 
character { (left brace), which is a 12-0 punch; and as A 
tiirough I. 
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The character - (minus or hypben) has the same zone as the 
character } (right brace), which is an 11-0 punch; and as J 
through R* 

The lalank carries no zone punch; neither do through 9» 

Although the left and right braces are not printable characters, 
they are still read and used by the coii5)uter. 

If the zone portion of the character is being tested, the 
characters &, -, and blank compare in exceptional ways^ If one of 
these characters or a code with the same zone is punched as the 
compare character, it will compare as equal. If, however, the 
compare character is a character with the same EBCDIC zone as the 
special characters, and a special character is punched in the 
card, it will also compare as equal. 

Since negative numbers are forined by punching a minus sign over a 
digit, they have a different character structure than positive 
numbers. When the zone punch (minus sign) is combined with the 
digit punch (1-9), a different character (a negative number) is 
formed which is repiesented in the nachine by the characters J-R. 
If the minus sign is ccanbined with a zero, the right brace 
character (}) is formed. 

Positive numbers, formed by punching an ampersand (&) over a 
digit, are represcjnted in the computer by the characters left 
brace ({) and A through I. 



STACKER SELECT (Colium 42) 

Entry Description 

Blank The input cards will automatically fall 

into tne stacker. 

This column is reserved for future implementation of the stacker 
select feature* 
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FIELD DESChlFIlQM ii^TRIES 



PACKED OH BINATiY FIELD (Column 43) 

Entry Description 

Blank The input field is not numeric, or 

is in unpacked decimal format, 

P The input field is in packed decimal format. 

B The input field is in binary format. 

The entry in column 43 indicates the format of the input field 
named in columns 53-5S. The entry it: used only if the field is 
numeric. If the field is alpiiabetic, alphanumeric, or in unpacked 
decimal format, no entry is made. Arrays in packed decimal or 
binary format require an entry in cxilumn 43. 

If a numeric field is in biriary or unpacked decimal format, it 
must be converted to packec deciriial lomiat before it can be 
processed. Only the di^^its and sign are recognized in the process 
of conversion to packec decimal format. 



riELD LOCATIOI^ (Columns 44-31) 

The lengti. ol' the input_ field named in columns 53-58 must be 
specified in columns 44-51. The maximum field length for a 
numeric field is 15 positions (8 if the format is packed decimal 
and 4 if it is binaiy). The maximurr; len£th for an alphanumeric 
field is 255 characters. The record position of the beginning of 
a field is specified in columns 44-47; the record position of the 
end ie specified in columns 48-51. These are described below as 
sepjirate entries. 
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BEGUMS (Columns 44-47) 

Entry D€;scription 

1-4 digit Dejsignates the beginning location 
number of the field named in columns 53- 5b. 

The record position of the first ciisiracter of the input field 
named in columns 53-5S is specified in the b^ins entry. The 
entry must be right- justified to end in column 47. Leading zeros 
are optional. 



m'DS (Columns 48-51) 

Entry Description 

1-4 digit Designates the ending location of the 
number input field named in columns 5>-58- 

The record position of the last chjiracter of the input field 
named in columns 53-58 is specified in the ends entry. The entry 
must be right- justified to end in column 51. Leading zeros may be 
omitted. 



DECIMAL POSITICi)JS (Column 52) 

Entry Description 

Blank The field is alphanumeric. 

0-9 The number of decimal positions in the 

numeric field is indicated. 

If a numeric field is named in columns 53-58, the number of 
positions to the right of the decimal must be specified in column 
52. The niomber of decimal positions cannot exceed the number of 
digits in the field. Fields that are used in arithmetic 
operations and fields that are edited or zero-suppressed (see 
Section 8, column 38 and columns 45-70) must be defined as 
numeric. 
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FIELD ^AME (Columns 53-58) 



Entry 

1-6 alpha- 
numerics 

PAGE 

PAGE1 

PAGE2 



Description 

The field, array, or array item 
bein^ specified is named. 

Special word entries specify that 
page numbering is to be done. 



Fields in a record must be assigned field names in columns 53-58. 

A separate line is used for each field description. The field 
be a valid RPG II name. It can be from one to six 
long and must begin in column 53. The first character 
alphabetic. The remaining, characters can l)e any 
of alphabetic and nui'.eric characters. Special 
are not permittee, and blanlcs cannot appear between 
in the name. The name assigned to each field must be 



name must 

characters 

must be 

combination 

characters 

characters 



used throughout the program whenever tiiat field is referenced. 

To eliminate duplicate coding of identical fields from different 
record types (Figure 6~SA), the OH relationship may be used to 
indi*cate that the fields named may be found in anjf of the record 
types (Figure 6-9B). 

The OR relationship is used when two or more record types have 
the same fields in the same positions, or when two or more record 
types have some fields v/hich are identical and some fields which 
differ in location, length, or type of data (numeric or 
alphanumeric ) . 

In entering an OR relationship on the specification sheet, OR is 
written in columns 14-15 following the record identification 
line, and the record codes of the alternate record type are 
specified. The field names are then entered in columns 5>-58 of 
the lines following. 
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figure 6-9. Coding for Record Types with Identical Fields. 



If array items are referenced, additional entries may be required 
(see Section 4, "Tables and Arr^s")- ii' an index is used with 
the array name, it must have been defined previously as a numeric 
literal. An index must be numeric with zero decimal positions. 

The special words PAGE, PASEI, and PAGE2 are field names used to 
indicate that page numbering on an output form or report is to 
start with a number other than page 1 . The alternate page number 
is entered in a field of an input record and the field is named 
PAGE in columns 53-56, Tiiree possible PAGE entries (PAGE, PAGE1 , 
and PAGE2) are provided for naming the PAGE field of up to three 
dii'ferent output files. 
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Page numbering can be restarted during a program by entering a 
number in a PAGE field of any input record. The number entered in 
the PAGE field must be one number less than the actual starting 
page number, and must be right- justified. For example, if page 
numbering were to start with 50, the entry in the PAGE field 
would be 0049. The PAGE field can be defined and used in 
I calculations like any other field (see Section 7, columns 43-48), 



CONTROL LEVEL (Columns 59-60) 

Entry Description 

Blank No control level indicator is to be 

used. 

L1-L9 A control level indicator is to be used. 

The entry in columns 59-60 assigns a control level indicator to 
an input field. Control level indicators are used to identify the 
point at which specified operations are to be performed. They may 
not be assigned to binary fields, or to input fields in chained 
or demand files. 

Control level indicators with higher numbers should be assigned 
to the more important fields, so that those fields will be 
processed first (see "Control Level Indicators" at the beginning 
of this section). 



MATCH FIELDS (Columns 61-62) 

Entry Description 

Blank Sequence checking is not to be 

performed. 

M1-M9 Fields are to be matched and/or 

sequence checked. 

Sequence checking is automatically done for all record types with 
m^tch field specifications. The contents of the fields to which 
M1-M9 have been assigned are checked for correct sequence. All 
match fields must be in the same order, either all ascending or 
all descending, and all files with match fields must be in the 
same sequence. 
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If only one input or update file is used^ an entry in columns 
61-62 causes sequence checking of the data in the field to which 
the entry has been assigned (see columns 15-16 for record type 
sequence checking) . 

If an alternate collating sequence is defined for a program, 
alphanumeric fields are matched according to the sequence that 
was specified. Match fields contain a corresponding' initial 
alternate collating sequence value; they are set to the lowest 
alternate sequence value if ascending sequence is specified, and 
to the highest alternate sequence value if descending seouence is 
specified. 

As many as nine fields (M1-M9) may "be used to sequence check. The 
sequence (ascending or descending) of the record file must be 
specified in the file description specifications (see Section 3, 
column 18). 

If more than one ini)ut or update file is used, the M1-M9 entry 
also causes records from the files to be compared and determines 
when they match. Whenever the contents of the match fields from 
records of the primary file are the same as the contents of the 
match fields from a secondary file, the matching record indicator 
(MR) tiH-ns on. M1-M9 are used only to identify fields by which 
records are matched, not as indicators; but they do cause MR to 
turn on when a match occurs. Matching is allowed with primary and 
secondary files only. It cannot be used with chained or demand 
files. 

The same number of match fields must be specified for all record 
types used in matching. If more than one match field is specified 
for a record type, all the fields are combined and treated as one 
continuous match field. They are combined according to the 
ascending sequence of matching record values. Match fields may 
not be split; thus the same match field value cannot be used 
twice for one type of record. 

The same matching record values (M1~M9) must be used for all 
types. Whenever more than one matching record value is used, all 
match fields must match before the MR indicator turns on. For 
example, if match fields M7, M8, and M9 are specified, a match on 
only the M7 and M8 fields will not turn on the MR indicator. 

Since field names are ignored in matching record operations, 
fields from different record types which have been assigned the 
same match level may have the same name. Record columns of 
different match fields may overlap, but the total length of all 
fields must not exceed 255 characters. 

Maitch fields may be either alphanumeric or numeric, however all 
match fields given the same matching record value (M1-M9) are 
considered numeric if any of those matching fields is described 
as numeric. Numeric match fields contain only the digits 0-9 
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(matching fields of 068 ano )^66, where i> denotes blank, would 
compare equal). Mi\i^n numeric fields having decimal positions are 
matched, they are treated as if they had no decimal position. 
Only the digit portions of nuB:eric match fields are compared and 
signs are ignored. Even thougli a field is negative it is treated 
as a positive field, and the sign of the numeric field is 
disregarded (a -8 will match with a +8). 
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Figure 6-10. Coding for hatch fields. 



PIEIJ) fiECORD RELATION Ii\iDICATOR (Coluims 63-64) 



Entry 
Blank 

01-99 
L1-L9 
MR 



Description 

The field is associated with all the 
record types in a specified OR 
relationship. 

The record identifying indicator 
relates a field to a record of a 
specific record type. 

The control level indicator regulates 
the acceptance of data from a field 
if a control break occurs. 

The matching record indicator regulates 
the acceptance of data from match 
fields. 
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U1-_U8 The externa], indicator conditions g 
field or a file. 

HO-HQ The halt indicator relates a. field to 

a record in an OR relationship. 

The entry in column;3 63-64 serves a v£iriety of specific purposes 
which are governed hy the type of indicator specified. Its 
primary purpose is to relate the field named in columns 53-58 to 
a i:)articular record type. Although each type of indicator must be 
handled on an individual basis, some general coding rules apply 
to all of them. 

All fields, including matching and control fields, that require 
no field record relation indicator entry should ae entered before 
those that do. 

All portions of a split control. fiela must be assigned the fsame 
field record indicator. All fields with the same field record 
relation indicator, whether split or not, must be entered as a 
Froup in consecutive lines of the specifications sheet: thus 
memory storage is used to its fullest efficiency. The fields or 
field portions need not be entered in any particular order within 
the indicator f;rouping£, however. 

Five kinds of indicators may be entered in columns 63-64: record 
identifying indicators (01-95), control level indicators (LUIS), 
the matching record indicator (MR), external indicators (Ul-UE), 
and halt indicators (H0-H9). 



Record Identifying Indicators 

Record identifvinr indicators (01-95) are used in columns 63-64 
when several record tj'pes have been specified m an OR 
relationshiD. If all the record tjrpes in a file have the sBme 
fields, no" field record relation indicator is required; but if 
record types in the OR relationship have a mixture of fields, 
with some that ar^e the same and some that are not, a record 
identifying indicator is required to relate a field to a certain 
record. The indic£itor entered in columns 63-64 must be the same 
as the record identifying indicator found in columns 19-20 of the 
record type on which the field is located. 

The 01-99 record identifying indicators can also be used as field 
record relation indicators to rel£i,te control fields and match 
fields entered in columns 59-60 arid 61-62 to a jparticular record 
type in an OR relationship. 01-99 may be assigned to just one 
match field when two match fields have the same matching level 
entry. In this case only the specification with the field record 
relation indicator is used when that indicator is on. If none of 
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the field record relation indicators Is on for the control or 
match field, the specification that has no field record relation 
indicator is used. Control fields and niatch fields cannot have an 
L1-L9 or MR entry in columns 6>-64. 



Contriol Level Indicators 

Control level indicators (L1-L9) may he used in columns 63-64 to 
cause the acceptance and use of data from a particular field only 
when a control break occurs. When the indicator turns on, data 
from the field named in columns 53-58 is accepted. 



Matching Record Indicator 

The matching record indicator (MR) may be used in the same way as 
control level indicators; data from a particular field is 
accepted and used only when match fields are encountered in 
columns 53-58. 



External Indicators 

External indicators (U1-U8) may be used to condition a 
specification. The external indicator is set prior to processing 
conditions to indicate whenever a field is to be used in the 
program. When the indicator is on, the field is read; when the 
indicator is off, the field is not read. Although they are most 
commo:nly used when file conditioning is to be done (see Section 
3, columns 71-72), external indicators may be used to condition 
when a specification should or should not be done, if file 
conditioning is not specified. 



Halt Indicators 

Halt indicators (H0-.H9) are used to relate a field to a record in 
relationship when a halt indicator is specified in columns 19-20. 
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FIELD IWDICAIOfiS (Columns 65-70) 

Field indicators are assigned to the field named in columns 53-58 
of the input record. Any indicator except LO can be used to test 
that field for a plus, minus, zero, or blank condition. If the 
condition is true, the indicator tiurns on; if the condition is 
not true, the indic£itor remains off. tialt indicators (H0-E9) may 
be assigned in these columns to test for an error condition in 
the data. 

The field indicators are actually used in the calculation 
specifications (Section 7) and output-forroat specifications 
(Section 8); field indicators are specified in the input 
specifications only to condition operations. If indicators are 
being specified for this purpose, the programmer must know when 
they will be off and when they will be on. 

One input field may be assigned two or three field indicators, 
but only the one which signals the result of the test turns on; 
the others are turned off. 

The status of a single field indicator assigned to fields in 
different record types is always hased on the last record type 
selected. When different field indicators are assigned to fields 
in different record types, however, a field indicator turned on 
will remain on until another record of that type is read. 
Similarly, a field indicator assigned to more than one field 
within a single record type will always reflect the status of the 
last field defined. Field indicators assigned in these columns 
may be SETOW or SETCF in calculation specifications. The three 
field indicators are described as separate entries below. 



PLUS (Columns 65-66) 

Entry Description 

Blank m indicator is being used for this field. 

Any indica- An indicator is being used, 
tor except LO 

Indicators are used to test a field for a plus condition. Any 
valid indicator entered except LO turns on if a field named in 
columns 53-58 is numeric and greater tlian zero. 

Indicators for the plus condition are off at the beginning of the 
program. They are not turned on until the plus condition is 
satisfied by the field being tested on the card just read, tialt 
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indicators specified in columns 65-66 cause the program to halt 
after the record which caused the indicator to turn on is 
coinpletely processed. The data can then be checked for an error 
condition, such as zeros in the field when none should be there. 
In this case the zero field is found, the halt indicator turns 
on, the record with the zero field is processed, and processing 
stops so that the data can be corrected. 



MINUS (Columns 67-68) 

E ntry Description 

Blank Wo indicator is being used for this field. 

Any indica- An indicator is being used, 
tor except LO 

Indicators are used in columns 67-68 to test for a minus (not 
true) condition. Any valid indicator entered except LO turns on 
If a field named In columns 53—58 is numeric and less than zero. 
Indicators for the minus condition are off at the be^^iinrdLng of 
the program and are not turned on until the minus condition is 
satisfied by the test field on the card just rc^ad. 

Halt indicators (K0-H9) can be specified in columns 67-68 to 
cause the program to halt so that an error condition in the ds.ta 
can be checked. 



ZEI^.O OR BLAHK (Columns 69-70) 

Entry Description 

Blank Ho Indicator is being used for this field. 

Any indica- An indicator is being used. 
tor except LO 

Indicators assigned in columns 69-70 cause testing for a zero or 
blank condition. Any of the indicators entered except LO turns on 
if a field named in columns 53-58 is all zeros and numeric, or if 
the fic;ld is alphanumeric and v;holly composed of blanks. 



SECTION 6 PAGE 34 



o, 



An indicator assigned to test for zeros or blanks is off at the 
befd^iming of the pro£;rsin and reniains off until the field being 
tested is zeros or blanks. A niimeric field which is composed 
wholly of blanks will cause the zero indicator to turn on; 
however an alphaniomeric field that is all zeros will not cause an 
indicator specified for all blanks to turn on. 

Halt indicators (HO-HS) can be used to test for error conditions 
in the data. 



PROGRAM IDEKTIJFI CATION (Columns 75-80) 
Entry Description 

Any These columns may be used for programmer 

characters comments . 

The program identification entry of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programmer comments, if desired. 
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SECTIOiJ 7. CALCULATIOi^ SVECIFICAIIOMS 



Specifications are written on the Calculation Specification Sheet 
(Pigure 7-1 ) to describe both the calculations to be perforffled on 
the data, and the order in which they are to be performed. 

Each calculation specification can usually be divided into three 
parts. The first part (columns 7-17) tells when the operation is 
to be performed, and under what conditions the operation 
specified is to be done; the second part (columns 2Q-'^2) 
indicates the kind of operation to be performed on the data 
specified in factor 1 (columns 18-27) and/ or factor 2 (columns 
33-42); and the third part (columns 54-59) indicates the tests to 
be made on the results of the operation. The indicators entered 
here signal the result of the operation and may be used to 
condition other operations. 
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iigure 7-1. HKl II Calculation Specifications Sheet. 
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LI'iERAIS 



A literal is the actual data used in an operation, rather than a 
field name representing that data. Although a literal may be 
either alphanumeric or numeric, coding for an alphanumeric is 
different from the way in which a numeric literal is coded. 

Alphanumeric literals may contain any combination of eight 
or fewer characters, excluding the two enclosing 
apostrophes. An apostrophe which is included as part of the 
body of a literal is represented by two apostrophes. The 
literal 'HARRY'S' would be written -- "A,^r.^.''o' ^^^ 



as 'fiARHY"S" 



for 



example. Alphanumeric literals may not be used for 
aritnmetic op<3rations. 



numeric literals (figure 7-2) are used in the same way as 
numeric fields. Ihey may contain any combination of the 
digits 0-9. A decimal point or sign may also, be included, 
but blanks cannot appear in numeric literals, and 
apostrophes must not be used. The maximum total length of a 
numeric literal is ten characters, including an optional 
sign and decimal point. If a sign is present, it must be the 
leftmost character. Unsigned numeric literals are treated as 
positive numbers. 
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Figure 7-2. Examples of Alphanumeric and I^umeric Literals. 
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OPERATIOiN CODES 



Use of RR) II allows many different types of operations to be 
performed on data. Special codes wliich indicate the operation to 
he carried out must be used to specify the required operation. 
The codes are easy to work with, since they are usually an 
abbreviated form of the operation to be performed. 

Calciilation operations are either internal or external. Internal 
calculation operations are performed in the computer within the 
processing of a single RPQ II program. Internal calculation 
operations fall into the following categories? 

Arithmetic Operations 

Move Operations 

Move Zone Operations 

Compare and Testing Operations 

Binary field Operations 

Indicator Setting Operations 

Branching Operations 

Lookup Operations 

Subroutine Operations 

Input and Output Programmed Control Operations 

External calculation operations comprise those operations which 
are performed by a subroutine or program that has been compiled 
separately from the main RPG II program. They comprise the 
external linkage operations and the debug operation. Valid 
operation codes are summarized in Appendix B, Table B4, 



ARITPIMETIC OPEIiATIOIJS 

Arithmetic operations can be performed only on numeric fields, 
arrays, array items, or literals. The result field must also be 
numeric. When arithmetic operations are i^sed in which all three 
fields occur, the factor 1 and factor 2 fields (columns 18-27 and 
33-42) and the result field (columns 43-48) may all be different 
fields; they may all be the same field; factor 1 and factor 2 may 
be the same field but different from the result field; or either 
factor 1 or factor 2 may be the same as the result field. 

The lengti. of the result field must be kept in mind when 
arithmetic operations are performed. When the result is aligned, 
decimal positions in excess of the number of decimal positions in 
the result field are dropped from the riglrit side; integer digits 
in excess of the integer portion of the result field's size are 
dropped from the left side. The results of all operations are 
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signed plus or minus (+ or -). Any data plaxsed in the result 
field completely replaces the previous contents of the field. 

Arithmetic operations are performed through the use of codes for 
nine functions: add, zero ana add, subtract, zero and subtract, 
multiply, divide, move remainder, square root, and crossfoot. 



ADD (ADD) 

In the add function, factor 2 is added to factor 1 and the sum is 
placed in the result field, factor 1 and factor 2 are not ciianged 
by the operation. 



ZERO AI^D ADD (Z-ADD) 

In the zero and add function, the result field is first set to 
zeros, then factor 2 is added to the result field. The result 
field then contains factor 2 in the right positions, and zeros in 
the left positions not occupiea by factor 2. ikctor 1 is not used 
in the Z-AED operation. 



UBTRACT (SUB) 



The subtract functioi;i ^causes factor^ 2 to be subtracted. from 
factor 1 and the difference to be placed m the result field. 
factor 1 and factor 2 are not cnanged by the opeiation. 
Subtracting two fields which are the same is a method of setting 
the result field to zero. 



ZERO MiD SUBTRACT CZ^Sm) 



In the zero and subtract function, the result field is first set 
to zeros, then factor 2 is subtracted from the result field and 
placed in the result field, so that the complement of f ctor 2 
ends up in the result field, factor 1 is not used. This operation 
can be used to change the sign of a field. 
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MULTIPLY (^5ULT) 

The multiply function causes factor 1 to be multiplied by factor 
2, and the product to be placed in the result field, i'actor 1 and 
factor 2 are not changed. When a field described as the result 
field is used as a factor, the length of the result field must be 
checked to be sure it is sufficient to hold the product. 



DIVIDE (DIV) 

In the divide function, factor 1 (dividend) is divided by factor 
2 (divisor) and the result (quotient) is placed in the result 
field. Factor 1 and factor 2 are not changed. If factor 1 is 
zero, the result of the divide operation will be zero, however 
factor 2 cannot be zero. Any remainder resulting from the divide 
operation is lost unless the move remainder operation (hVR) is 
specified as the next operation; if it is, the result of the 
divide operation cannot be hall -ad jus ted (rounded). 



MOVE REMAINDER (MVR) 

The move remainder function moves the remainder from the previous 
divide operation to a separate field named under the result field 
entry. The maximum length of the remainder is 15, including 
decimal positions. The number of significant decimal positions is 
the greater of either the number of decimal positions in factor 1 
of the previous divide operation, or the sum of the decimal 
positions in factor 2 and the result field of the previous divide 
operation. The maximum whole-number positions in the remainder 
are a^ual to the whole-number positions in factor 2 of the 
previous divide operation. This operation must immediately follow 
the divide operation and should be conditioned by the same 
indicators. Factor 1 and factor 2 must not be used with MVR. 



SQUARE ROOT (SQRT) 

The souare root function derives the square root of the field 
named 'in factor 2 and places it in the result field. Factor 1 is 
not used. Factor 2 and the result field are numeric fields from 1 
to 15 digits long, including up to nine decimal places. For every 
digit to the left of the decimal place in the result field there 



SECTION 7 PAGE 



should be two digits to the left of the deciical place in factor 
2, Por every digit to the right of the decimal place in the 
resialt field there should be two digits to the right of the 
decimal place in factor 2. A negative number causes a halt, thus 
factor 2 cannot be a negative number. When the SQRT operation is 
used, the result field length must be greater than or equal to 
the decimal positions entry. The result field (root) is 
automatically half-adjusted. A whole array can be used m a oQKl 
operation if factor 2 and the result field entry contain array 
names. In this case, the square root of each item of the array 
named in factor 2 is placed in the corresponding item of the 
array named in the result field. 



CROSSFOOT (XPOOT) 

The crossfoot function is used only on arrays with numeric items. 
It adds all the items of the array together and places the sim in 
the result field., The total can be half-adjusted in the result 
field, factor 1 is not used; factor 2 contains the name of the 
array. Resulting indicators can be used. If the result field is 
an item of the sane array used in factor 2, the value of that 
item before the XF(X)T operation is used in arriving at a total. 



MOVE OPERATIONS 



Move operations move factor 2, or part of it, to the result 
field, but do not change factgr^2 itself. lac tor 1 is not vsed in 
move operations. Resulting indicators may not be assignee. Move 
operations can be used to change numeric fields to alphanumeric 
fields and alphajoumeric fields to numeric fields. To change a 
m;ireeric field to an alphanumeric field, the name of the numeric 
field is placed in factor 2 and an alpharjumeric result .fiejld is 
used. To change an alphanumeric field to a numeric field, the 
process is reversed: the name of the alphanumeric field is placed 
in factor 2 and a numeric result field is i;sed. 

V/hen data is moved into numeric fields by means of move 
operations, any decimal positions in the data are ignored. Eor 
exsinple, if 1.72 is moved into a numeric field with one decimal 
position, the result is 17-2. 

Move operations can be used to perform two functions: move, which 
moves and right-adjusts the data; and move left, which moves and 
left-adjusts the data. 
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MOVE (MOVE) 

The MOVE operation code causes characters from factor 2 to be 
moved to the rightmost positions in the result field. Moving 
starts with the rightmost character. If factor 2 is longer than 
the result field, the excess leftmost characters of factor 2 are 
not moved. If the result field is loiTger than factor 2, the 
characters in the result field that lie to the left of the data 
just moved in remain unchanged. 

Alphanumeric fields or constants may be changed into numeric 
fields by moving them into numeric fields. When this type of move 
occurs, the digit portion of each ciiaracter is converted to its 
corresponding numeric character and then moved to the result 
field. Blanks are transferred as zeros, and the zone portion of 
the rightmost alphanumeric character is converted to a 
corresponding sign. The sign is then moved to the rightmost 
position of the numeric field, vhere it becomes the sign of that 
field. Conversely, numeric fields nay be changed into 
alph*'mumeric fields by moving them into alphanumeric fields. When 
this type of move is specified, all digits are transferred, 
including the digit and zone of the rightmost character. 



MOVE LEFT (MOVEL) 

When the move left operation is used, the characters from factor 
2 are moved to the leftmost positons in the result field, 
beginning with the leftmost character of factor 2. 

When MOVEL is specified to change an alphanumeric field or 
constant into a numeric field, the digit portion of each 
character is converted to its corresponding numeric character and 
then moved into the result field. Blanks are transferred as 
zeros. The zone of the rightmost character of factor 2 is used as 
the sign of the result field, whether or not the rightmost 
character is moved. 

When a numeric field is moved into an alphanumeric field, it is 
changed into an alplianumeric field.. Digits are transferred left 
to right. The digit and zone portions of the rightmost character 
are converted to one byte each, if that character is to be moved. 



SECTION 7 PAGE 8 



If factor i. is loriger than the resialt field, the excess rightmost 
characters of factor 2 are not movea. Certain other conditions 
apply if factor 2 is longer than the result field: 

If both fields are numeric, the sign from the rightmost 
position of factor 2 is moved over the rightmost di,git of 
the result field. 

If both fields are alphanumeric, only the number of 
characters needed to fill the result field is moved. 

If factor 2 is numeric and the result field is alphanumeric, 
the result field contains only digits after factor 2 is 
moved. 

If factor 2 is alphanumeric ar/i the result field is numeric, 
the zone from the rightmost character of factor 2 is moved 
to the sign position of the result field, and the remaining 
result field positions contain only digits. 

If the result field is longer than factor 2, the characters to 
the right of the data just moved in remain unchanged, and if a 
numeric field is used, its sign also stays the same. Two other 
conditions apply for the MOVEL operation if factor 2 is shorter 
than the result field: 

If the result iield is numeric and factor 2 is either 
numeric or alphanumeric, the digit portion of factor 2 
replaces the contents of the leftmost positions in the 
result field, and the sign in the rightmost position of the 
result field is not changed. 

If the result field is alphanumeric and factor 2 is either 
numeric or ^ilphanumeric, the characters in factor 2 replace 
the equivalent number of leftmost positions in the result 
field, and no change is made in the zone of the rightmost 
position of the result field. 

When factor 2 and the result field are the same length, the 
following conditions apply with MOViiL: 

If factor 2 and the result fitsla are both numeric, the sign 
is moved with the rightmost digit of factor 2. 

If factor 2 and the result field are both alphanumeric, all 
the factor 2 characters are moved. 

If factor 2 is numeric and the result field is alphanumeric, 
the factor 2 sign is moved with the rightmost digit. Only 
the digits in the other positions are moved. 
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If factor 2 is alphanumeric and the result field is numeric, 
the zone and digit portions of the rightmost digit of factor 
2 are moved. Zones in other positions are not moved. 



MOVE ZONE OPERATIONS 



Move zone operations ai-e used to move only the zone portion of a 
character, four varieties of the move zone operation can be used: 
move high to high zone, move high to low zone, move low to low 
zone, and Biove low to high zone. 

In the following discussion the word high refers only to an 
alphanumeric field, and the word low refers to either an 
alphanumeric or a numeric liela. 



MOVE HIGH TO HIGH ZOi\iE (MlffiZO) 

The move high to high zone operation moves the zone from the 
leftmost position of factor 2 to tne leftmost position of the 
result field. Both factor 2 and the result field must be 
alphanumeric. 



MOVE HIGH TO LOW ZOME (MHLZO) 

This operation moves the zone from the leftmost position of 
factor 2 to the rightmost position of the result field, i'actor 2 
can be only alpirianumeric , but the result field may be either 
alphanumeric or numeric. 



MOVE LOW TO LOW ZOI^E (^iLLZO) 

MLLZO moves the zone from the rightmost position of factor 2 to 
the rightmost position of the result field, factor 2 and the 
result field may both be either alpnanumeric or numeric. 
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MOVE LOW TO HIGH ZONE (MLHZO) 

This operation moves the zone from the rightmost position of 
factor 2 to the leftmost position of the result field, ifector 2 
can be either numeric or alphanumeric, but the result field must 
be alphanumeric. 



CQKiPARE AND TESTING OPERATIONS 



Compare and testing operations are used to test fields for 
certain conditions. No fields are changed by these operations; 
instead the result of the test on the fields is shown by the 
resulting indicators assigned in columns 54-59- 



COMPARE (ca4P) 

The compare operation causes factor 1 to be compared with fO tor 
2. The results of the comparison are shown by assigned indicators 
that are turned on or off. The nigh indicator is turned on if 
factor 1 is greater tlrian factor 2; the low indicator if factor 1 
is less than factor 2; the equal indicator if factor 1 is equal 
to factor 2. 

The compare operation cannot be used with entire arrays, and 
factors 1 and 2 cannot be compared unless both are either 
alphanumeric or numeric. If the fields are alpiianumeric, they are 
automatically alii^ed to their leftmost character before they are 
compared. If one factor is shorter, its unused positions are 
automatically filled with blanks. 

If the fields to be compared are numeric, they are automatically 
aligned according to the decimal point, and any missing digits 
are filled in with zeros. The maximum length for numeric fields 
to be compared is 15 digits. 

If an alternate collating sequence is defined in the 
specifications, alphanumeric fields are compared according to 
that sequence. 
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TEST ZCNE (TESTZ) 

This operation is usee on alphanumeric result fields to test the 
zone of the leftmost cJriaracter (see Section 6, " Character 
Structure"). The test determines whether the zone is [X)sitive 
(+}, negative (-), or blank. Resulting indicators are assi£ned to 
show the results of the test. The plus indicator is turned on by 
the zone portion of the characters & and A-I, while tne minus 
incicator is turned on by the zone portion of the characters } 
(right brace), - (minus), and J-R. All other characters turn on 
the blank indicator. 

The TESTZ operation cannot be used on numeric result fields, nor 
does the operation use factor 1 and factor 2. 



BlhAia FIELD OPERATIOI^S 



Three binary field operation codes are proviaed to set and test 
individual bits used as switches in a program. The codes are 
BITDW, BITOF, and lESTB; tney are entered in columns 21^32, When 
one 01 tiiese codes is used, lactor 2 can contain either a field 
name, or one to ei£;ht bit specifications. 

One or more bits per operation, up to a msximum- of eight, £iay be 
set on, set off, or tested. Bits may be specified in a'literal by 
numbering them 0-7, from left to right, and enclosing tuem in 
apostrophes. They neea not be specified in any oraer. To specify 
bits 1, 4, 6, and 7, I'or example, '1467' would be entered in 
columns 33-3& of factor 2. Bits whicn are not specified in factor 
2 are not changed. 

Bits may also be specilied usii\i the name of a one-i)osi tion 
alplrianumeric field name or table or array item. In this case, the 
bits which are on in tne field or array item are turned on, 
turned off, or tested in the result field, and bits which are not 
on are not affected. 



SET BIT ON (BITOW) 

The i}£ie of the BIT01\i operation code in columns 26-32 causes the 
bits identified in factor 2 to turn on in the field named in the 
result field entry. Conditioning: indicators can be used in 
columns 7-17. Any entry unaer field length must be 1. 
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The factor 1, decimal positions, half-adjust, and resulting 
indicators entries are not used with the BITOli operation. 



SET BIT OFI' (BITOP) 

The use of the BITOP operation code in columns 28-31 causes bits 
identified in factor 2 to turn off in a field named as the result 
field. All other specifications are the same as those for the 
BITOr\l operation. 



TEST BIT (TESTE) 

Use of the TESTB operation code csxises bits identified in factor 
2 to be tested for an on or off condition in the field named as 
the result field, and the condition of the bits to be shown by 
resulting indicators in columns 54-59. All other specificjitions 
are the same as those for llTOh and BITOI', 

As many as three resulting inoicators can be named for one TESTB 
operation, but at least one must be used. Although two indic^ators 
may be the same for one TESTB operation, three cannot. If factor 
2 'contains bits which are all off, no resulting indicators are 
turned on. 

Resulting indicators have cifferent meanings for different 
columns* 

An indicator in columns 54-55 is turned on if each bit 
specified in factor 2 is off in tne result field. 

An indicator in columns 56-57 is turned on if two or more 
bits were tested and some bits were found to be on and 
others off* The field named in factor 2 must contain more 
than one bit which is on if an indicator appears in columns 
56-57- 

An indicator in columns 5&-59 is turned on if each bit 
specified in factor 2 is on in the result field. 
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IICICATOR .lETTIWG OPERM'IOi^S 



Indicator setting operation codes ai-e usea to turn indicators in 
columns 54-59 on or ofl". Ihe headings shown in the resulting 
indicators field (plus, minus, zero, etc.) do not apply in 
indicator setting operations. Ihe two indicator setting 
operations which can be used ere SETQii and SrliOF, Whenever a new 
record is read, record identifying indicators (01-99) and field 
indicators are set to reflect conditions on the new record. The 
setting from any previous SEIOh or SETOF operation does not apply 
then. 

Indicators L1-L9 and the recorc identii'ying indicators are always 
turned off ai'ter detail output operatioris are completed, 
regardless of the previous SLTOE or £ElX)i operation. Setting on 
or setting off a control level indicator (L1-L9) does not 
automatically set on the lower control level indicators. 



SEl OH (SKOiO 

The SJbTOi^i operation coae causes indicators entered in columns 
54-59 to be turned on. An\ indicator may be turnea en by the 
SETOI^ operation. 

If the LR indicator is turned on by a tEx01\ oi^eration concitioned 
with s ccntrcl level inaicator (columns 7-8), processing stops 
after all total output ojjerations are finished. If it is turned 
on by a SETCIy operation not so conditioned, processing' stops 
after the next total output operation is completed. 

If halt indicators (HO-IIS) are set on and not turned off before 
the detail output operations are complete, trie system types a 
message on the console indicating wnich halt indicator is on. 'me 
operator may then either continue tne job or terminate it. 



SET OiT (SETOI') 

This operation causes indicators in columns 54—59 to be turned 
off. Any indicator may be turned off by the SETOJ' operation. 
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MUMERIC INEICATORS 

Wumeric indicators (01-9S) may be used in a variety of ways to 
fulfill a number of purposes. During; the input cycle they may be 
used ss field record relation indicators, as record identifying 
indicators, or as field indicators. Specifying them as field 
record relation indicators causes them to be tested; specifying 
them as record identifying indicators causes them to be turned on 
or off. It is important to remember that if an input field is 
specified again as an output field with a blank after entry 
(column 3S of the output sheet), s zero or blank field indicator 
specified on the input field will turn on as soon as that field 
is blanked, and will affect calculation and output specif ica.t ions 
with which it is used. 

During the calcaLations cycle, numeric indicators 01-99 may be 
used either as operation indicators or as resulting indicators. 
Specified as operation indicators, they determine whether or not 
an operation is to be performec; as resulting indicators they are 
turned on or off. 

During the output cycle. 01-99 may be specified as output 
indicators to condition output fields. 



HALT llimCATOR^: 

Halt indicators (H0-H9) are turned on and off in the same manner 
as numeric indicators, with two exceptions: 

Halt indicators are tested at the end of each detail cycle, 
flrd if anv are on a message is typed to the operatojc (see 
fvpeiAix G^ ^?ro? MesSlgts"). tf the operator indicates 
that the job is to be continued, the indicator is turned 

off. 

If halt indicators are on at the end of the detail cycle, 
the job is halted and processing stops. 



OVERPLCW IJ^DI GATORS 

One overflow indicator (OA-CG, OV) is assigned to each printed 
output file in the file description specifications. The overflow 
indicator may Le turned on or off when it is specified as a field 
indicator on input or as a result indicator for calculations; or 
it may be tested when it is specified as an operation indicator 
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for calcu-lations or bjs a conditioning indicator for output. 
Although overflow indicators cannot condition exception lines, 
they may condition fields within the exception record. 

An overflow indicator is turned on when spacing goes past an 
overflow line, but not when the overflow line is skipped. A skip 
to a new page from a line not conditioned by an overflow 
indicator causes the indicator to be turned off. 



CONTROL lEVEL IHDICATORS 

Control level indicators (L1-L9) are used to indicate a change in 
a control field. RPG turns them on when a change is encoimtered 
in the value of the control field of a subsequent record. They 
are turned off at the end of the detail cycle following the 
control field change. Control level indicators may also be turned 
on or off by calculations. 

When RPG turns on a control level irxiicator, all lower level 
control indicators are turned on as well; however a control level 
indicator turned on or off as a record, field, or resulting 
indicator does not turn the lower level control indicators on or 
off. 



EXTERNAL INDICATORS 

External indicators (U1-4J8) are used on file description 
specifications to condition files. They may also be used as field 
record relation indicators (input specifications 77 operation 
indicators (calculation specifications), or conditioning 
indicators (outj^t specifications). 

External indicators provide a means of passing yes or no 
information from Control Language Statements (Appendix P) to a 
program and from one progjram to the next. They may be turned on 
or off with the CLS parameter card (//PAR, Appendix F), or by 
being specified as field indicators. The status of external 
indicators remains unchanged from the end of one job step to the 
beginning of the next job step. 
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FIRST PAGE INDICATOR 

The first page indicator (IP) is used to produce headings and 
detail lines on the first page of output. It is turned on by RPG 
at the beginning of the first program cycle, before any input 
records are read, and turned off by RPC just before the first 
detail record is read. It is also turned on when specified as a 
field indicator in the input specifications. 

The IP indicator niay be used as an operation indicator, but will 
remain off the first time through the program cycle unless it is 
intentionally set on. 



BHAMCHING CPERATIOKS 



Branching operations allow operations to be performed in a 
different order than is specified on the Calculation 
Specifications Sheet. They can be used to cause several 
operations to be performed over and over again; to cause certain 
operations to be performed for certain record types and not for 
others ; or to cause several operations to be skipped when certain 
conditions occur. 

Two operation codes can be used; GCIO, and TAG. 



GO IX) (GOTO) 

The GOTO operation code allows instructions to be skipped if some 
other instruction is specified to which the program is to go (see 
TAG). The skip may be to an earlier line or to a later 
specification line, but it cannot be from a calculation within a 
subroutine to a calculation outside of that subroutine, or vice 
versa. 

A skip can be mfade from a calctilation tlriat is conditioned, by a 
control level indicator (columns 1-8) to one that is not, however 
the programmer should be fsjniliai' with the RPG progi^m logic 
before he uses this feature. 

If there is no entry in columns 7-8 of a GOTO line, but the 
associated TAG line contains a control level indicator (IO-L5), 
the program skips from the point of the GOTO line in detail 
calculatioriS to the point followin£ the TAG line in total 
calculations, and no detail output occurs. Data from the record 
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being processed remains available; data from the next record is 
not transferred to the input work area. The sBine input fields are 
repeatedly transferred to the RPG-assigned locations before 
detail calculations are performed. 

Total calculations followin£ the TAG line are once again 
sequentially executed, subject to the status of conditioning 
indicators in columns 7-17; total output again occurs, unless 
another GCT'O instruction causes it to be bypassed; overflow 
output is processed if OA, OP, or OV is on; and detail 
calculEtions are again performed. 

Several events take place during detail calculations preceding 
the GCTO operation. If field indicators or the MR indicator were 
turned on or off, they are reset alter each total output to the 
settin£ they had immediately before original detail celcul-ations 
for the current recoro. If oA-OP, or CV was turned on or off, it 
is reset before overflow output to its status at the end of the 
preceding total output. It is turned on, however, if it was off 
at the end of the preceding output and a carriage- tape channel 12 
jjunch is encountered during one ol' the rejjeated total output 
times. Once it has been turntsd on by channel 12, it is not turned 
off again until the next detail output has been completed, L0-L9 
or record type indicators turned on or off by the SET01\' or SETOP 
operation or as resulting indicators retain their status. 

Pactor 2 must contain the name of the point to which the 
operation is to go. Pactor 1 arid the result field are not used in 
the GOTO operation. GOTO may be conditioned by any indicators. If 
it is not conditioned, the ot)eration is always executed. 



TAG (TAG) 

The TAG operation code defines tne point to which a skip is 
specified in the GOTO operation. The name must begin in column 18 
of factor 1. The same name may not be used for more than one TAG 
instruction, and it cannot be tne name of a field used in the 
program. 

Pactor 2 and the result field are not used in the TAG operation, 
and no indicators may be entered in columns 1^-17. Control level 
indicators may be used, however, if a skip is to be made at total 
time. 
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LOOKUP OFmAIlGES 



Lookup operations are used when a table or array is searched for 
a special item. The lookup operation can be used to search a 
single tatle, to search an array, or to search using two related 
tables. Only one code is required for lookup operations: lOKUP. 



LOOKUP (LOKUP) 

The LOKUP operation code causes a search to be made for a 
particiiLar item in a table or array rjamed in factor 2. JElactor 1 
contains the search word for which a match is to be found in the 
table or aris,y nsamed. The search word may be an alphanumeric or 
nuirieric constant, an array item, a field name, or a table name. 
The search word must be the same length and contain the same 
format (alphanumeric or numeric) as the table or array item, but 
need not have the same alignment. 

When a table is named in factor 1 for a LOKUP operation, the 
specification is not for the whole table, but rather for the item 
last selected from the table. 



ASSIGNING INDICATORS 

Resulting indicators are always used in connection with JjOKUP, 
first to indicate the type of search desired, and. then to reflect 
the result of the search. In all cases the resulting indicator is 
turned on only if the search is successful. 

An indicator assigned to LOW (columns 56-57) instructs the 
program to locate an entry in the table that is nearest to the 
search word, yet lower in sequence th-an the word. The first 
higher entry found causes the indicator assigned to HIGH to turn 
on. 

A resulting indicator assigned to iQUAL (columns 5&-59) instructs 
the program to search for a table or array item equal to the 
search word. The indicator turns on only if such an item is 
found. If severs! items are identical to the search word, the 
program selects the first one it encounters. 

At least one resulting indicator must be assigned for a IDKUP 
operation, but no more than two can be used. Resulting indicators 
should not be assigned to boti. HIGH and LOW, since the indicator 



SBCTIOfJ 7 PAGE 19 



assigned to LOW will be ignored, but indicators can be assigned 
to EQUAL and HIGH, or to EQUAL and LOW, The program then searches 
for an entry that satisfies either condition, but checks for an 
EQUAL item first. If ' no EQUAL entry can be found, the nearest 
item lower or higl:ier in sequence is selected. 

A search may be made on HIGH, on LOW, on HIGH and EQUAL, or on 
LOW and EQUAL orJ.y if the table or array is in sequence. iNlo 
resulting indicator is turned on if the entry searched for is not 
found. (See Appendix B, Tables B2 and L3, for indicator 
summaries. ) 



SEARCHIJWG A SI1\GLE TABLE 

When a single table is searched, factor 1, factor 2, and at least 
one resulting indicator must be specified. Conditioning 
indicators may also be specified in columns 7-17. Hesulting 
indicators are always set on to reflect a successful result of 
the search, and off if the search was unsuccessful. 

Every time a table item is found tiiat satisfies the type of 
search being made (EQUAL, HIGH, LOW), a copy of that table item 
is placec in a special storage area and the previous contents of 
the storage area are destroyed. If the search is not successful, 
the storage area remairis untouched. 



SEARCHING WITH TWO TABLES liJVOLVED 

When two related tables are used in a search, only one is 
actually searched. When the search condition (HIGH, IDW, EQUAL) 
is satisfied, the corresponding data items from both tables are 
made available for use. The two tables involved should be the 
same length. If the table that is searched is longer tnan its 
related table, the search stops at tae end of the shorter table, 

Jactor 1 must be named as the search word and factor 2 must name 
the table to be searched. The result field must name the related 
table from which data is to be made available for use, Hesulting 
indicators must also be used. Conditionij^g indicators may be 
specified in columns 7-17 if they are needed. 
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REiEREf>iCIWG FOUND TABLE ITH'iS 

Whenever a table name is used in an operation other than IDKbF, 
the table name does not refer to the table itself, but to the 
data item placed in the special storage area as a result ol the 
last successful search. This allows data items from a tatxLe m 
calculation operations to be used. 

The table may also be used as the result field in operations 
other than the LOKUP operation, so that the contents of the table 
can be modified by calculation operations. In this csije the 
contents of the special storage area are changed by the 
calculation operation, and the corresponding table item m the 
table itself is also changed. 

If a table is named in factor 1 in a LOKUP operation, the 
contents of the special storage area are used as the search word. 
In this uay a data item from a table can itself become a search 
word. 



SEARCHING AE ARRAY 

LOKUP operations are specified for arrays in the same way as for 
tables except tY.\st the result field cannot be used if factor Z 
names an array. If just the array name is used in referencing the 
array, the search begins at the first item in the array. 
Indicators must be used to determine if a match was fourid. The 
indicators reflect only that the desired item is in the array; 
the programmer does not have ready access to a found item. 

The array name may be used kith an index consisting of e field 
naSe or £ literal.. If an index is used, the search begins at the 
item identified by the index. If a match is found, the number oi 
the array item containing the match is placed in the field used 
as the index. If no match is found, the index field is set to 1. 

If a literal is used as an index, indicators must be designated 
to determine if a match W8.s found. The content of the item 
referenced by the literal is not changed. 



SEARCHING AT A SPECIEIED AliRAY ITEFi LOCATION 

To save processing time it is possible to start the lOKUP search 
at a particular item in an array. The search starts at the 
specified item and continues until the desired item is found or 
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until the end of the array is reached. This type of search is 
indicated ty additional entries in columns 33-42. The name of the 
array to be searched is entered in these columns, followed by a 
comma end either a numeric literal or the name of a numeric field 
with no decimal positions. The numeric literal or field shows the 
nuiuber of the item at which the search is to start; it is termed 
an index because it points to a certain item in the array. All 
other coluHins are used in the same way as they are for the norcjal 
lookup operation. 

When an index field is used, an unsuccessful search causes that 
field to contain the value of one. If an array item is found 
which satisfies the conditiorjs of the LOKUP operation, however, 
the number of the item, counting from the first item in the 
array, is placed in the index field. A numeric literal used as an 
index is not changed to reflect the result of the search. 



SUBROUTINE OPEItATIGi^S 



The subroutine operation codes are lisea only for subroutines tiiat 
are parts of other main routines. The subroutines are coded in 
specification lines on the calculation sheet following all detail 
and total calculation operations. Even though they are specified 
last on the calculation sheet, they may be performed at any point 
in the calculation operations. Each subroutine must have a name 
entered in factor 1, and the operation code BEGSR enterea on the 
saine line. The subroutine riarae can be 1-6 characters long and 
must begin with an cilpiriabetic character in column 18. The 
remaining chaiacters can be anj- combination of alphabetic or 
numeric characters, but may not contain special characters. 
Blanks may not appear between characters in the name, and no two 
subroutines used m the same program may have the same name. 

Except for Al\i and OH lines, each specification line within the 
subroutine must Jriave Sfi in columns 1-3 to identify it as a 
subroutine line. 

All. possible RPG II operations may be performed within a 
subroutine. The operatiorts may oe concitioned by any valid 
indicator in columns 9-17. Individual operations within a 
subroutine cannot be conditioned by a control level indicator in 
columns 7-£, however, since Sri must appear in those columns. 

Fields used in the subroutine may be defined either inside or 
outside the subroutine. In either case the fields can be used by 
both the main routine and the subroutine. 

A subroutine cannot be written within a subroutine. Although it 
may call another subroutine, a subroutine cannot call itself or 
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the subroutine which callea it« When GOTO is used in a 
subroutine, branching outside to a statement m another 
subroutine or brancMng from outside the subroutine to a 
statement within the subroutine causes an error condition. A skip 
can be mad.e only from one statement within a subroutine to 
another statement within the same subroutine. 

Three operation codes are used in definir^g a subroutine: liEGSR, 
ENLSR, and EXSR. 



BEGII^ SUBRCUTIWE (BBGSK) 

This opei^tion code is coded as the first statement of a 
subroutine and serves as its be^nnin£ point. Factor 1 must 
contain the name of the subroutine. 



EIC SUBROUTINE (Ei^'DSK) 

ENDSR serves as the last statement of the subroutine to define 
the end of the subroutine, factor 1 may contain a name which then 
indicates a point to which a skip can be made by a GOTO statement 
within the subroutine. The im^SR operation endiijg the subroutine 
automatically causes a branch back to the next statement after 
the EXSR operation. 



EXECUTE SUBROUTlliE (EXSR) 

This operation causes a skip to be made to the beginning of a 
subroutine, factor 2 must contain the name of the subroutine that 
is to be executed, and the same r.ame must appear on a BEGoR 
instruction. EXSR may appear anywhere in the program to indicate 
that the subroutine is being called. Whenever Ei^R appears, the 
subroutine is automatically executed. EXSR may be conditioned by 
indicators to cfiuse the subroutine to be executed only at tne 
time when all specified conditions are satisfied. Any valid 
indicators may be used in columns 7-17. If no indicators are 
used, the subroutine is always executea when ElLSR is encountered. 
Entire subroutines can be conditioned by control level indicators 
when the control level indicator is used with the EXSR operation. 
After all operations in the subroutine are done, the operation in 
the line following the EXSR specification is performed. 
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INPUT AND OUTPUT PROGRMMEE COI.TROL OPERATIONS 



In the normal RPG II processing cycle, a record is read, 
calculations are performed, and records are written. This cycle 
can be altered, however, to allow input and output operations to 
be executed during calculations, five operations can be used to 
alter the cycle: exception, force, display, read, and cteiin. 



EXCEPTION (EXCPT) 

This operation allows records to be written at the time 
calctilations are being done. It is used primarily when the number 
of similar or identical records (either detail or total) to be 
written in one program cycle is variable rather than exact. 

When the exception operation is used, EXCPl is entered in columns 
28-32. Columns 7-17 mey have entries, but aJJ. other columriS must 
be blank. The line or lines to be written out during calculation 
time are indicated by an E in column 15 of the Output-Eorciat 
Specifications Sheet, 



PORCE (PORCE) 

FORCE statements are used with primary or secondary input or 
update files to enable selection of the file from, which the next 
record is to be taken for processing, ifector 2 in a iX)RCE 
statement identifies the file I'rom which the next record is to be 
selected. If the statement is executed, the record is selected at 
the start of the next program cycle. If two or more 1X)RCE 
statements are executed during the same program cycle, all but 
the last one are ignored. 

Although the first record to be processed is always selected by 
the normal method, PORCE statements override multifile processing 
selection for the remaining records. When end-of-file is 
encountered on a forced file, a record is not retrieved from tne 
file; instead the method of selection reverts to multiprocessing 
ana the record to be processed is selected by normal methods. 
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DISPLAY (DSPLY) 

The display operation allows either or both of two events to 
occur: 

A field, table element, array element, or literal up to 120 
cteiracters long can be printed on the console without a 
program halt during program execution. 

A field, table element, or array element up to 120 
characters long can be printed on the console with a program 
halt to allow that field to be changed. Literals may not be 
changed with the DSPU operation code. 

When the DISPLAY operation is used, factor 1 holds the field to 
be displayed; factor 2 gives the filename of the console; and the 
result field contJiins the field to be changed. Both factor 1 and 
the result field are optional; however, either one or the other 
must be used. If desired, both may he used. 

V.'hen data is entered during program execution, alphanumeric 
fields are left- justified after all cteracters are keyed, and 
numeric fields are right- justified after all characters are 
keyed. Leading zeros are not required for numeric data. After the 
data is entered the ML key must be depressed if the data is 
correct, or the CAi\'CEL key if data is to be re-entered. If no 
characters are entered or the space "bar is not depressed, the 
result field is not ciianged. Alphanumeric fields entered during 
program execution are blanked out; numeric fields are zeroed out 
before the actual input field is moved in. 



READ (HEAD) 

The READ operation is used to call for demand file information to 
be input during the calculations in the program cycle. This 
operation differs from the FORCE operation in that FORCE 
specifies input on the next program cycle rather tlian the present 
one. When the program is reading from several demand files during 
the same RPG II cycle, record identiiying indicators assigned to 
the demand files remain on throughout the cycle if the previous 
READ operations were executed successfully. 

The READ operation code must appe<ar in columns 28-32. i'actor 2 
must contain the name of the file from which a record will 
immediately be read. An indicator sliould be specified in columns 
58-59 to turn on after each READ operation if an end- of- file 
condition is reached. When columns 53-59 (resulting indicators) 
are blank, a halt condition occurs on an end-of-file condition 
and on subsequent ftEAD operations after the end-of-file condition 
is reached. Indicators may be specified in columns 7-17. 
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The READ operation is similar to the CHAIH operation, except tliat 
the READ file is processed sequentially and the CHAIN file is 
processed randomly. Demand files can be processed only by the 
READ operation; CHAIi^ cannot be used. When the READ operation is 
used for demand files, the MR indicator cannot be entered in 
columns 63-64 on the input sheet. Ijumeric secjuence testing on the 
input sheet is not allowed for domand files, nor are control 
levels, match fields, and look-ahead fields. When a demand file 
is conditioned by a U1-U8 indicator which is not on, no records 
are read from that file and the end-of-file indicator in columns 
58-59 does not turn on. 

The following files can appear as factor 2 in a READ operation, 
provided they are designated as demand files by. a D in column 16 
of the file description sheet: 

Sequential files processed consecutively and specified as 
input or update files in column 15 of the file description 
sheet . 

Indexed disc files processed sequentially by key and 
specified as input or update files. 

Indexed disc files processed sequentially within limits and 
specified as input or update files. 



CKAin (cha:iO 

The CHAIU operation causes a record to be read from a disc file 
during calculations. One record is allowed to be read in when the 
operation code CHAIN appears in columns 2G-32 of the calciJLation 
sheet. Indicators may be used in columriS 7-17, but the result 
field, field length, decimal position, and Irialf-adjust (columns 
43-53) entries must be blank. Pile conditioning indicators 
(U1~U8) can be used to condition a chained file, and columns 
54-55 should contain a resulting indicator entry. If the record 
is not found, the indicator specified in these columns will turn 
on. If ajj indicator is not specified in columns 54-55 and the 
record is not found, the pro£::ram wi.ll have a halt condition. No 
output is permitted to a chained update file when the specified 
record is not found. Columns 56-59 must always be blank for chain 
operations. 

The cliain operation is used lor two purposes: random processing 
of an indexed or direct file; and direct file loading. 

In random processing, a record must be identified by a relative 
record number before it can be read from a direct file, or by a 
record key before it can be read from an indexed file. The 
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relative record nxmber or recoM k^y can be contained in a field 
Scifild f^r that purpose. In the chain operation, the opemtion 
rS^ CHMN is rSuired in colmins 28-32 of the calcialation sheet. 
P^t<^ 1 Stril^ ^t he a relative record number or key. 
R^lluve rISord ni^BDhers must he nuiaeric. ^ctor 2 must contain 
the name of the file from which the record will he read. This 
file irih^ the file that is chained to, or the chained file. 

A r^iT^ct file is created for direct file loading when it is 
rf^f i^ as a chj^ned output file on the file description sheet. 
ISct^ 1 in ?hrS£cSation specifications must th^ ^<^^^i?^^ 
iJlaSve recoi-d number, columns 2^-32 must ^f^^^^^.^^llZ 
code CHAIN, and factor 2 must contain the name ^^J^^/'^^'L^^ 
^r^Z +n hp icfflided. Relative record numbers define the record 
Sition f^r ^cf rec^d in the direct disc file. The relative 

Slter° caA L S[ or part of a field in i^rdi^f f nl' if iSde? 
tTf^r^P^rfvi-t^ bv the RPG II program. After the disc file is loaaea, 
Se^Sltive^recoM^tirS ale useci for record identification of 
the disc records. 

When a direct file is loaded as a chained output file^ the ^^ 
blanlis out the disc space required for the ^^^^^ /^jfj^^ ?t^ ^tl 
iT loaded. The relative record number is used to chain to the 
T^r-ri^^iiiF relative reconi position in the disc file. The 
iSo^^tio^^in^^the >ile then ^e^J^^s Jae ^J^^en^s 
tjr'-i++<=.M on dl«^c- If a record is not loaded, the space reservea 
f^r that reci?d in thi disc file remains blank until the proper 
record is loaded at a later tiiKJ. 

rMnf:^ fhey direct file is loaded, records can be inserted or 
Sa^e^n the^file by defining the'direct file as an update iile 
processed either consecutively or by the chain operation- 
Inserting records in direct disc files is a very difTerent 
p??ces^ frSm record addition to sequential or indexed files. A 

liilis^^ivaifabSe^^^t ^?he^ efd^^a^'lL k^Mt l^f'U^i's 
gSirs fo? an iSextd fill, except that the record key and disc 
addrels are added to the file index. Space is already^servg 
for any new records inserted m a direct disc tile, nence xne 
record is inserted in its proper place rather than added to the 
physical end of the file. 



EXTiaiNAL JJMKAGE OPERATIONS 

External linka^ operations permit ^^^li'S^ff^Tr^'' ^ Sler^ 
TT r>rop-ram which performs internal calculations, and external 
ShrS^tfS^' a^d user programs. (See Appendix E for a detailed 
l^iSiti^n S suSoutine Snkage.) Codeljre provided for t^ee 
external^ linka^s operations: exit to a subroutine, RPG II label, 
and user's label. 
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EXIT 1C A £UBRCUTIK£ (EXIT) 

The EXIT operation code allows the programmer to transfer control 
from the RPG II program to a user subroutine whose name is 
contained in factor 2, The name of the subroutine cannot be 
greater tlrian six alphanumeric characters; the first character 
must be alphabetic. i!actor 1 and. the result field are not used 
with the EXIT operation. 

J>jormal linkage uses register 6 for the tsarameter list pointer, 
but no parameter list is associated with the EXIT operation. When 
the EXIT operation is used in calculations, it links to a user 
subroutine with a register usage conversion which sets the save 
area address in register 7. The user must save any registers he 
uses in the save area pointed to by that register. 

The save area format is as follows : 
Words Contents 

1 Eeturn address. 

2 Previous save area address (always zero), 

3 Status word (zero). 
4~11 Register save area. 



RFC II LABEL (HLABL) 

RLABL allows a subroutine external to the RPG II program to 
reference a field in the RPG II program. The name of the field to 
be referenced is entered in the result field. It must be a valid 
numeric or alphanumeric field, an indicator, or a table, and may 
be from one to six alphanumeric characters long. The first 
character nust be alphabetic. 

The field length and decimal positions must be defined in the 
result field of an RLAEL entry unless they are defined by a 
preceding entry in either the input or the calculation 
specifications. If UDATE, UMONTH, UDAY, or UYEAR is used in the 
result field of an RLAEL operation, the field length or number of 
decimal positions need not be specified; however if they are 
specified, UDATE must have a field length of six with zero 
decimal positions, and the others must have a field length of two 
with zero decimal positions. Indicators, factor 1, and factor 2 
are not used. To si)ecify an indicator, the first three characters 
must be IKD, followed by the two-character indicator; e.g, , 
IND02, INDL1. 
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USER'S LAEIL (ULABL) 

The user'e label operation enables the RPG II program to 
reference a field contained in a user subroutine whose njime is 
entered in the result field. The name may be from one to six 
alphanumeric characters lon^;; the first character muist be 
alphabetic. The field length and decimal positions must be 
defined. Indicators, factor T, and factor 2 are not used. A ULABL 
field can be specified on the calculation or output-format sheet, 
but cannot be specified on input sheets. 



DEEUG OPERATIOIJS 



The debug operation is an KPG II function used to locate errors 
in a program which is not working properly. The operation causes 
one or more records to be written which contain information 
helpful in finding programming errors, and is coded with the word 
DEBUG. The operation code produces results only if a 1 has been 
entered in column 15 of the control card specifications. If the 
control card entry has not been made, the operation code DEBUG is 
treated as a comment. Because additional pi*ooessing 
considerations ai-e involved, care must be exercised in writing 
debug records to a direct or indexed file. 

In specifying the DEBUG code, use of factor 1 is optional. If it 
is used, It may contain a literal or field name which identifies 
the particular' debug operation; this literal or the value of the 
field named is then written on record 1. Eactor 2 must contain 
the name of the output file on which the. records are written. The 
same output file name must appear m factor 2 for all DEBUG 
statements in a program. The result field may be a field, a table 
item, ' an array item, or a whole array whose contents are to be 
written on recorcL 2, Any valid indicators may be used in columns 
7-17. Columns 4SJ-59 (length of result field, decimal positions, 
Irialf-ad just , and resulting indicators) must be left blank. 

The DEEUG operation code may be placed at any point or at several 
points in the csilculation operations. Kecord 1 is required^ and 
is written whenever it is encountered, but record 2 is written 
only if a specification has been entered for it. Record 1 
contains a list of all indicators which are on at the time the 
DEEUG codt was encountered. Record 2 shows the contents of any 
one field. 
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SPEClFXim RECORD 1 



Record 1, which is always written, is specified in the following 
format : 



Positions 

2-7 

8 

9-16 



17 
18-31 

32-any position, 
depending on the 
number of indica- 
tors on 



£ntr.Y 

DEBUG. 

JBlank, 

The constant entered in factor 1 
or the statement number of the 
DEBUG operation code in the 
program. 

Blank. 

The words IiNDIGAlORS OW. 

Ihe names of all indicators which 
are on, each separated by a blank. 
Ihe word wOi\[E is entered if no 
indicators are on. More than one 
record may be needed. 



SPECIFY IM} RECORD 2 



Record 2 is optional and neec be specified only when there is a 
result field. The record is written in the following format: 



Positions 
2-12 

13-14 

15-any position, 
depending on 
field length 



The words EI ELD VALUE or TABLE 
VALUE or ARRAY VALUE. 

Blank. 

Ihe contents of the result field or 
array (up to 255 characters per item). 
More than one record may be needed. 



When the result field is written in record 2, a blank is used to 
separate each array element. When applicable, a negative sign is 
written following an array item, table item, or field. When the 
result field cannot be contained in a record, a continuation 
begins in position two of the followir^g record. When one or more 
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array items can be written on a single record, but the next item 
cannot be entire3.y contained on the record, the next item is 
written in position two of the next record. 



CODIKG IJJSTRUCTI0U3 



Detailed instructions for coding the calculation entries on the 
specifications sheets are defined below. 



PAGE NUMBER (Columns 1-2) 

Entry Description 

01-99 Specifications sheets are numbered 

sequentially. 

More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper sequence, the coded Calculation Specifications Sheets 
must be grouped according to their type and arranged with the 
other specifications sheets in the followirig order: 

Control Card and file Description 

Extension and Line Counter 

Input 

Calculation 

Output-Pormat 

The specifications sheets should then be numbered in ascending 
sequence. 



LIKE NUMBEF-i (Columns 3-5) 



Entry Description 

Any number Line numbers are assigned in 
ascending sequence. 
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Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the proijrajnmer's convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 



TYPE OP POEM (Column 6) 

Entry Description 

C C identifies the calculation 

specifications to the compiler. 



CONTROL LEVEL (Columns 7-8) 

Entry Description 

Blank The calculation operation is not part of 

a subroutine and may be performed only 
for detail calculations. 

I^» The calculation operation is done when 

I'^-L9 the appropriate control break occurs 

or an indicator is set on (LO is always 

on). 

LR The calculation operation is done after 

the last record has been processed or 
ai'ter the LR indicator has been turned on 
by a SEIOU operation. 

SR The calculation operation is part of a 

subroutine. 

M,OR An AM or OR relationship is being 

established between lines of indicators. 

The type of calculations to be performed must be specified in the 

following order: detail (blank), total (LO, L1-L9, LR), 

subroutine (SR). (AN/OR lines can ^ Appear within any of the 
Cfilculations specifications. ) ' 
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If columns 7-8 are left blank, detail calculations are performed: 
the operation specified on the same line is performed each time a 
record is read, provided the operation is allowed by indicators 
in columns 9-17 of that line or by AN/OR lines associated with 
ths.t line. Operations conditioned by control level indicators in 
columns 9-17 are done at detail calculation time immediately 
following the control break. 

Total calculation's are specified next, by 10, L1-L9, or IH in 
columns 7-8, In one program cycle, all operations conditioned by 
control level indicators in columns 7-8 are done at total 
calculation time. All LO calculations must appear before L1-L9, 
and Ui calculations must appear after L1-L9 calculations. The LR 
indicator is used to condition all ojperations that are to be done 
only at the end of the job. When it automatically turns on after 
the last input record Ijas been processed, all other control level 
indicators also turn on automatically, and the job ends after all 
total operations have been performed. The LR indicator can bIso 
be turned on by a SETOi'I operation. This does not, however, cause 
all the other control level indicators used to turn on. 

Subroutine calculations, specified by SR in columns 7-8, are used 
to indicate that a line is part of a subroutine (see "Subroutine 
Operations")* Subroutine lines must be specified iast. 

AN or OR specified in columns 7-8 shows that lines of indicators 
are in an MD or OR relationship. By usirig the MD/OR 
relationship, many lines of indicators may be grouped together to 
condition an oi-eration. A maximum of seven AW, OR, or AW/OR lines 
may be used to condition an operation. The first line of a group 
linked by AN/OR lines must contain blanks in columns 7-8, or 
L0-L9 or LR if the group of lines is conditioned by a control 
level indicator, or SK if the group is part of a subroutine. All 
lines after the first line in the group must have an AJ^' or OR 
entry in columns 7-8. The indicators on each line are in an AND 
relationship. Although each AIVOR, group requires at lesist one 
indicator, it is not necessai^ to nave three indicators on each 
AW and OK line. All lines in tte group prior to the last line 
must contain blanks in the columns for the factor 1, factor 2, 
operation, and resulting indicator entries. The last line of the 
group must contain the operation and the necessary operands. 

Columns 7-80 may also be used for comments (see Section 3, 
coliMns 7-14). 



OPERATION INDICATORS (Columns &-17) 

One to three indicators per line may be used in coluirms 9-17 to 
control whether or not an operation is to be done. Three separate 
fields appear on each line (columns 9-11, 12-14, and 15-17), one 
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for each indicator. The three indicators are in an AND 
relationship with each other. If AN or OJR entries are used in 
columns 7-8, many indicators can be used to condition one 
operation. Up to seven AN or OR lines are permitted in any 
combination. Each operation indicator is specified by tv/o 
entries: M, and the indicator itself. 



NOT ON (Columns 9, 12, 15) 



Entry 
Blank 

N 



Description 

The indicator specified in the next two 
columns is on. 

The indicator specified in the next two 
columns is not on. 



If an indicator must not be on to condition an operation, a,n W is 
placed in the column immediately preceding; the indicator 
specification. 



INDICATOR (Columns 10-11, 13-14, 16-17) 



Entry 
Blank 

01-99 

L0-L9 

LR 

MR 
H0-H9 

U1-U8 



Description 

The operation is performed every time it 
is encountered, if columns 7-8 are not I<0, 
L1-L9, or SR. 

The opei^tion is performed if a 
resulting indicator used elsewhere 
in the program is on/off. 

A control level indicator previously 
assigned is used. 

The last record indicator is used. 

The matching record indicator is used. 

A halt indicator assigned elsewhere is 
used. 

An exte:mal indicator previously set is 
used. 



SEC 



^aWa-oooP-^f/is^i 



CTA-OG 
0V 

IP 



An overflow indicator previously assirmed 
is used. 

The first ^f?;e indicator is used. (This 
indicator is normally off, even the first 
time through the object progi-am cycle, 
unless it has been purposely set on.) 



Up to three indicators may be entered on a line. Additional 
indicators may be entered on following AN/OR lines. The 
indicators on one line, or indicators in grouped lines, plus the 
control level indicator (if used in columns 7-8) must all be 
exactly as specified before the operation can be performed. 



MCTOR 1 (Columns 18-27) aiid FACTOR 2 (Columns 33-42) 



Entry 

1-10 charac- 
ter literal 

1-6 charac- 
ter name 



UDATE 
UMOi^TH 
UDAY 
UYEAR 

PAGE 

PAGE1 

PAGE2 

1-6 charac- 
ter label 

1-6 charac- 
ter label 



Description 

Any alphanumeric or numeric literal may be 
used in either or both factors. 

Any subroutine, table, array name, or 
an'ay item may be used in either or both 
factors, NOTEj An ari^ay item specification 
may exceed 6 characters because of the 
addition of a comma and an index. 

Sp€;cial word date field names may be used 
in either or both factors. 



Special word page fields may be used in 
either or both factors. 



A :Label for a TAG, BEGSR, or ENDSR 
operation may be used in factor 1 only. 

A :Label for a GOTO or EXBR operation 
may be used in factor 2 only. 



Columns 18-27 and 3:5-42 are used to name the fields or to p-ive 
the actual data (see "Literals" at the begirining of this section) 
on which an operation is to be performed. 

An entry in factor 1 must begin in column 18; an entry in factor 
2 must begin in column 33. The entries to be used depend upon the 
operation being described (see columns 28-32). Some operations 
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need entries in both factor 1 and factor 2, some operations need 
entries in only one of the factors, and some operations need no 
entries at all (see columns 28-32), 



OPERATION (Columns 28-32) 



Entry 
ADD 

Z-ADD 

SUB 

Z~SUB 



mum: 

DIV 
MVR 

SQRT 

XE'OOT 

MOVE 

MOVEL 

MflHZa 

MHLZa 



Description 

Adds factors 1 and 2 and places the sum 
in the result field. 

Replaces the result field with factor 2. 

Subtracts factor 2 from factor 1 and 
places the difference in the result field. 

Clfiaiiges the sign of the field by 
subtracting factor 2 from the result field 
and placing the negative of factor 2 in 

the field. 

Mul.tiplies factor 1 by factor 2 and 
places the product in the result field. 

Divides factor 1 by factor 2 and 

places the quotient in the result field. 

Moves the remainder from the previous 
divide operation to the result field. 

Derives the square root of factor 2 and 
places it in the result field. 

Adds array items and puts the sum in the 
the result field. 

Moves characters from factor 2 to the 
rightmost positions of the result field. 

Moves characters from factor 2 to the 
leftmost positions of the result field. 

Moves the zone from the lei'tmost factor 2 
position to the leftmost result field 
position. 

Moves the zone from the leftmost factor 2 
position to the rightmost result field 
position. 
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MLLZO 

MLHZe 

COMP 
TESTZ 

BITOU 
BITQF 
TESTE 

SETOIi 
SETOr 

GOTO 

TAG 

LOKUP 

BEGSR 

ENDSR 

EXSR 

EXCPT 

K)RCE 



Moves zone from ithe rightmost factor 2 
position to the rightmost result field 
position. 

Moves zone from the rightmost factor 2 
position to the JLef tmost result field 
position. 

Compares factor 1 with factor 2 and 
turns on/off resulting indicators. 

Tests the zone of the leftmost result field 
character and turns on/off a resultii^ 
indicator. 

Turns on the result field bits identified 
in factor 2. 

Turns off the result field bits identified 
in factor 2. 

Tests the result field bits identified in 
factor 2 for an on/off condition and turns 
on/off resulting indicators. 

Turns resulting indicators on. 

Turns resulting indicators off. 

Skips instructions backward or forward 
to continue processing at tiie named 
instruction. 

Mames the instruction to which the GOTO 
skip is to be made. 

Searches for specific items in tables or 
arrays . 

Defines the beginning point of a 
subroutine . 

Defines the end of a subroutine. 

Causes a subroutine to be executed. 

Writes records while calciolations are being 
performed. 

Identifies the file from which the next 
record is to be selected. 
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CePLY 



Prints one or two fields, table items, 
literals, or array items up to 125 
characters, A special case of the DSPIJf 
operation causes a program halt and 
allows the programmer to blank out or 
change a field or item where contents 
have been displayed. 



READ 

CHAIN 

EXIT 

RLAEL 

ULABL 

DEBUG 



Reads input from a dejnend file during the 
current program cycle. 

Reads a record from a chained disc file 
during calculations. 

Transfers control from the RPG II progiam to 
a user subroutine. 

Allows an external subroutine to reference 
a field internal to the RPG II program. 

Allows the RPG II internal program to 
reference a field in an external subroutine. 

Locates programming errors in a 
malfunctioning program. 



Columns 2E-32 are used to specify the kind of operation to be 
performed using resulting indicators, factor 1, factor 2, .-and/or 
the result field. The operation code must begin in column 28. The 
ope^rations are performed in the order specified on the 
caDculation sheet. All opere.tions conditioned by control level 
indicators in columns 7-S r;ust follow those which are not 
conditioned by control level indicators. All operatioriS that are 
part of a subroutine (SR in column 7-8) must follow all other 
ca].culB,tions in a program. Eve.ry operation code used requires 
certain entries on the same specification line. See "Operation 
Codes" at the beginning of this section for more information. 



RliSULT EIELD (Columns 43-46) 



Entry 

1-6 valid 
ch«';:racters 



Description 

Contains the name of a field, table, 
array, or array item. 



Columns 43-48 are used to name the field, table, array, or array 
item that is to hold the result of the operation specified in 
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columns 28-32. The restdt field name must begin with an 
alphabetic character in column 43 and contain no blanks or 
special characters. A new field may be defined, or the name of a 
field, table, array, or array item that has already been defined 
in extension specifications, input specifications, or elsewhere 
in the calculation specifications may be used. If the name ol a 
field that has already been defined is being entered, entries in 
columns 4S-32 are not necessary; but if they are specified they 
must agree with the previous definition of that field. 

If the name of a field that has not been defined elsewhere is 
bein^ entered, columns 4S-52 should also contain entries. A new 
field may be defined by entering a field name that h&s not 
already been used; the field will then be created when the 
program is compiled. The named field may be either numeric or 
alphanumeric, but it must be numeric if it is used m arithmetic 
operations or if it is edited or zero-suppressed in output-format 
specifications. 



RESULT FIELD LENGTH (Columns 4S^51) 



Entry 
Blank 

1-255 



Description 

The alphanumeric or numeric field to 
be used is described elsewhere. 

Defines the number of digits in a numeric 
result field (1-15), or the number of 
characters in an alphanumeric field 
(1-255). 



Columns 4S-51 are used to specify the length for any result 
field. If a resiat field tiiat has not been used before is being 
named, the new form of the data and its new length after 
performing the operation must be considered. 



DECIMAL PO£ITIOi^'S (Coli;imn 52) 



Entry 
Blank 

0-9 



Description 

Either the field is described elsewhere, 
or the field is alphanumeric. 

The number of decimal places in a numeric 
result field is entered. 
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rirlT n? ft TJ"^ ^"^ indicate the number of positions to the 
ri£nt_ 01 the decimal point m a numeric result fiela If fhf- 
eS;lr^. ""^^"^^ ^^^^^ contai.^ no decimal positioJ^fa'zifo'is 

lerP'th"^^' fhi iiiiT^ positions must never be greater than the 
leiagtn oi the Held, ihe number may, however he- lar-o-or nr> 
smaller than the number of decimal positior^ thiractuSllf^fIsu?t 
irthe^'ri^T^lff; ''■ ^''%^^^rji ^- eater, zerorllJ^^^Llld^n 
to the right. If It IS smaller, the rightmost digits are dropped. 



entry must 
It mixy also 



he 
be 



left 

lef t 



blani: 
blank 



if 
if 



the 
the 



result 
result 



The decimal positions 
field is alphanuEieric. 

exten«.ion ''tZul'' ."^ ^T .^f^'' previously described in the 
extension, input, or calculation specifications in which ca^f- 
the field length columns (49-51) must also be bS, 



UAIJ-ADJUS^i (Column 53) 



Blank 
H 



Description 

Half ~ac justing does not take place. 

The contents of the result field are to be 

lialf-aQ .lusted. 



?SiV"^+S ^" i:^ "^-®*^ ^^^^y with arithmetic operations to indicate 
tnet the contents of the result field ere to be half-nri^nSt^H 

iT'^tf.t of f;f r^^"^ '" ?"^^ ^^ addi^'al to 'i^'n^iTlt 

field ^5r -5 if thf'fi^??^?^^ position specified for a positive 

th? rip-hf nr fhl ^i^ '''' negative. All cecimsl positions to 

droppS position specified for that fiild are then 



HESULTII^G IIJDICATOKS (Columns 54-59) 



Entry 
01-99 

H0-H9 
LC-L9 



Description 

A numeric indicator is used. 

A Jrjalt indicator is used. 

A control level indicator is used. 
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jjl A last record indicator is used. 

j4j^ The matching record indicator is used. 

m_c5G An overflow indicator specified on the 

OV file description sheet is used. 

y-j_U8 A user-defined internal indicator is used. 

Columr^. 54-59 are used to test the value of the result f^^^ 

iSti^tors'^^J llSie by 1 SEIoror SETOI' operation; or to 
indicate end-of~file for the RLAD operation code. 

HO-hy cire ^s®^^^"^- . >^r^ ^op^w ^nd SEIOF operations, however the 

SmOF^y be entered. Any ir.dlcatore to be turned or or olf by 
the SEl'CM or SLTOf operations are specified from left to nefit ^ 
the three resultinc indicator fields. 

If an 01-9^ or H0-H9 indicator is specified, it is turned on only 
g %°^4^"field'-tisfies Jhe conditior fg^^^ it i^^ing 

can be tested for more tnan one of tne concitions. 

An indicator i- Plf ^^ j^ -l-g^^rj ^^^^ 

whether the result {^^f^ ^n ^r^ gitnmetic o^^x or table or 

whether factor 1 IS higher than .actor^. ^^^^^^ ^^^ ^^^ ^^^ 

array LDKLP operation, ux t-y ~^^. .x .n,,crivn /Q-n ^pro^-,^ or 
following operations: CHAii^ (not iound), li^iB (ail zero^;, or 

TESTZ (C zone). 



whether facto? 1 is lower than factor 2 in a COI^IP operation or 
tabie or 2ray LOKUP oj^ration; or to test the results of a lEblB 
(mixed) or TEBTZ (D zone) operation. 

Shfthir flctor't fs equal to factor 2jn a «». or table or ar^^ 
^,^;Sn^i^l^^)T^^^oZ), orTK^XZ (not C 
or C zone). 
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COiiMEM'S (Columns 60-74) 

Entry Descriptlor. 



1-15 AlpJmbetic, numeric, am special 

ciuiracters ciiaracters may be used in any combination. 

Any raeaningi'ul information the proi3ranimer desires can be entered 
in columns 60-74 to help in understanding or remembering wiiat is 
being done on each specification line. Comments are not 
ins true tiorjfi to the HPG II program; they serve only as a means of 
documenting a program. 



PRCOHAI^ iDLi^lTIi'ICAl^IOi^ (Columns 75-bO) 

Entry Description 

Any These columns nay be used for programmer 

clii.iracters comments. 

The program identification entry oi' all cards following the 
control card may contain any cmracters, including blanics. The 
columns may be used for programmer comisientE, if desired. 
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SBCIIOH 8. QUTPUT-jPORMAT SPECIFICAIIOMS 



Output is the result or product of processinig. Output records 
consist of data that is gathered, calculated, or generated during 
object program operation. The output records are stored in files 
originally designated as output or update files on the file 
specifications sheet* 

The Output~Format Specifications Sheet (JFigure 8-1) is used to 
describe these output records. Two kinds of entries can be made 
on this sheet: record description entries that describe which 
output records are to be written; and field description entries, 
which indicate the position and format of the inforjaation 
contained in the output records. Pield description entries must 
always be entered one line lower than record description entries. 
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Pigure 8-1. RPG II Output~Porfflat Specifications Sheet. 
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TYPES OP OUTPUT RECORDS 



The four types of output records ai-e heading records, detail 
records, total records, and exception records. 

Heading records contain identifying information which does not 
usually change from page to page, such as the report name, the 
date, and the column titles. 

Detail records contain information that comprises the subject 
matter of the report. Most of the information in detail records 
is gathered directly from input records or calculated during 
program operation. 

Total records are generally cumulative sums of the calculations 
in detail records, and are usually v/ritten last. They may not be 
specified for primary or secondary update files. 

Exception records are always written during calculation time, iind 
can only be used when the EXCPT operation code is entered on the 
Calculation Specifications Sheet (Section 7). 

Within each type, records are processed in the order in which 
they appear in the output specifications. 



OVERFLOW INDICATOR 



An overflow indicator may be assigned for a print file on the 
Pile Description Specifications Sheet (Section 3). The indicator 
is turned on when a line is printed on or below the overflow 
line. If overflow occurs during header and detail output, the 
indicator is turned off after the header and detail records oi 
the next cycle are written to output. If overflow occurs during 
total output or during EKCFI output (see Section 7, "Operation 
Codes")* the indicator is turned off after the header and detail 
records of the following cycle are written to output. 



NO OVERFLOW PROCESSING 

If an overflow indicator is assigned in the file description 
specifications but is never used to condition an output record, 
the RPG II System does no special processing for the overflow 
condition. 



i:) 
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AUTOMATIC SKIP TO TOP OF FORMS 

If no overflow indicator is assifmed in the file description 
specifications for a print file, the RPG II System generates a 
skip to channel 1 in place of normal overflow processing. The 
timing of this skip cannot he altered by anything in the program. 



OVERFLOW ROUTItJE 

All records conditioned by the overflow indicator are output by 
the overflow routine. Under normal conditions the overflow 
routine is called automatically, however in certain cases the 
overflow routine may be called or "fetched" ahead of the normal 
time (see column 16, this section). 



i^ormal Processin g 

If the assigned overflow indicator is turned on durinp- normal 
output, processing continues in the usual manner until all total, 
header, and detail records not conditioned by the indicator have 
been written to output. At this point in the program cycle the 
overflow routine is called. 

The overflow routine first prints all total records that have 
been conditioned, by the indicator, then all header and detail 
records conditioned by the indicator. A skip to channel 1 should 
be entered in the first header record, since skips to a nev; page 
are not automatically generated by the RPG II System in normal 
overflow processing. 



Fetching the Overflow Routine 

Problems can occur under normal overflow processing when several 
detail and total lines must be printed during each reroilar 
program cycle, causing printing to go past the end of the page. 
Although the programmer could avoid this situation by setting the 
overflow line high enough on the page to accommodate all the 
possible lines after overflow, some empty pages would result. 

To circumvent the problem entirely, the overflow line should be 
assigned just high enough on the page to include only the number 
of lines needed to print all total records conditioned by the 
overflow indicator, then the overflow routine should be fetched 
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for the given printer line. If this procedure is followed, the 
overflow indicator is first checked, and if it is on, the 
overflow routine is executed "before that line is printed. 



PAGE NUMBERING 



Automatic page numbering takes place when the special word PAGE 
is entered in the field name columns (32-37). When PAGE is 
entered in the Output-Format Specifications Sheet without being 
defined elsewhere, the program treats it as a four- position 
numeric field with no decimal positions, and automatically 
increments it by 1 each time a new jage is encountered. Page 
numbering may start at a number other than 1 only through a 
specification on the input sheet (see Section 6, columns 53-5b; 
or the calculation sheet (see Section 7, columns 43-48). 

A PAGE field defined in the input or calculation specifications 
sheets may contain as many as 15 positions, but must be defined 
with zero decimal positions. Leading zeros are suppressed, and 
the sign must be specified via an edit word or code before it csm 
be printed in the rightmost position. Page numbering then bep-ins 
with 1, unless otherwise specified, and is automatically 
incremented by 1 each time the PAGE field is written. 

Up to three print files can be individually numbered concurrently 
by entering special words PAGE, PAGE1 , and PAGE2 m the field 
name columns of the output specifications, however each special 
word can be assigned to only one file. 



ITERATED ITFXDS 



I]ntering *PLACE in columns 32-37 causes all fields named before 
it on the specifications sheet for each to be repeated m the 
same relative locations ending at the position defined m the 
*PLACE statements. An end position must be specified for every 
*PMCE line; the leftmost position of the fields to be moved by 
the *PLACE specification is always assumed to be position 1. Ihe 
end position should therefore be twice the' number of the highest 
er^d position used in the previously named fields, to avoid 
overlaying previous data. 
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i^EPORT DATES 



Special words may be used in columns 32-37 to cause the date to 
appear in a specified roriaat on printed reports or output 
records. Four such words allow the progranuner to vary his format 
as desired: UDATE, UDAY, UMONTH, and UYEAI^. UDAIE produces a 
six-character numeric date field in either Domestic format 
(ffiiaddyy) or United Kingdom/European Convention format (ddmmyy), 
UDAY may be used to obtain dates consisting of days only; UMOliTH 
to obtain months only; and UYEAR to obtain years only. Slashes 
and periods may be inserted via editing to separate from each 
other the day, month, and year portions of a date. 



>:DIT.ED FIELDS 



Editing can be specified for the information in numeric output 
fields to enhance the legibility of a I'ield in several ways: 

By inserting special characters or delimiters, such as 
commas, periods, spaces, etc., between characters of the 
field. 

By indicating a negative field with a minus sign (-) or 
credit sign (CR). o v / 

By suppressing leading zeros and replacing'; them with blanks. 

By suppressing leading zeros and printing asterisks instead 
(asterisk fill). 

By inserting a dollar sign immediately before the most 
significant non-zero digit in the field (floating dollar 
sign). 



EDIT- CODES 

One-character edit codes provide the above editing features for 
frequently used formats and take into consideration the inverted 
print option of the control card specification (Section 2, column 

21 ). 
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EDIT WORDS 



Edit words give the programmer more flexibility by allowing him 
to lay out explicitly the entire resulting output field, 
chsracter by character. This is done using replaceable and 
non-replaceable characters. Replaceable characters are those 
positions which are to be occupied by digits of the edited field. 



CONSTANTS 

Constants may be used in columns 45-70 instead of edit words; or 
they may be used within edit words. Constants comprise any 
unchanging information, such as a column heading or title, that 
is entered by a specification. They must be enclosed m 
apostrophes when they are entered on the specifications sheet. Up 
to 24 characters of constant information may be entered on a 
specifications line. 



CODING IKSIRUCTIOIiS 



Detailed instructions for coding the output-format entries on the 
specifications sheets are defined below. 



PAGE l^'UMBEi; (Columns 1-2) 

Entry Description 

01-99 Specifications sheets ere numbered 

sequentially. 

More than one of each type of specifications sheet may be used in 
the course of coding the soiorce program. To keep the sheets in 
the proper order, the coded Output-Pormat Specifications Sheets 
must be grouped together, numbered sequentially, and pla,ced 
i immediately after the Calculation Specifications Sheets. 
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Lli^'E MUlffiER (Columns 3-5) 

Sntry Description 

Any number Line numbers are assigned in ascending 

sequence. 

Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer's convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line tetween completed lines, Ctolumn 5 can also be 
used to this end. The line ntimbers assigned need not be 
consecutive, but thejr must be in ascending order. 



TIFE OF POEM (Column 6) 



Entry Description 

0" O identifies the output-format 

specifications to the compiler. 



PILENAME (Columns 7-14) 

£ntry Description 

^-8 The output file being described is 

ciiaracters named. 

Every output file to which records are to be written must be 
named previously in the file description specifications. The 
exact filename originally assigned must be entered, hefrlmdmr in 
column 7. » o ^ 

The output filename must appear on the first line containing 
information relevant to a partictOar file, but need be specified 
only once. The information on the following lines refers to the 
previous filename until a new filename is entered in columns 

Columns l-SO may also be used for comments (see Section 3, 
columns 7-14). ' 
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MD/Gii (Columns 14-16) 

Entry Description 

AMD More tJban three indicators are used to 

condition the output operation. 

OR Output indicators are used to condition 

an OK relationship. 

The MD/CR entry is used in con i unction with the output 
indicators entry (columns 25-31). -AND lines can be used when more 
than three output indicators are used to condition an output 
operation. The word MD is entered in columns 14-16 of the next 
lines following the first line on which the first three 
indicators are specified. The condition of all indicators 
assigned must then be satisfied (on or off) before the output 
operation can be performed. 

Output indicators may also be assigned in an OH relationship. If 
either or both of the OR conditions are met, the output operation 
is performed. OR ].ines are indicated by the word OR in columns 

14-15- 

Both AND and OR lines are allowed in an output operation. A 
maximum of 20 such lines may be used for each record description. 
AND and OR lines cannot be used to condition a field. 



TYPE 0±' RECORD (Coluian 15) 

Entry JDescription 

II The record is a hegiding record. 

D The record is a deteil record. 

T The record is a total record. 

E The record is an exception record. 

The entry in column 15 is used to specify the type of output 
record to be printed, punched, or written on disc. If column 15 
is lei't blank, an error condition occurs. See columns 23-31 for 
information concerni:ns the heading and detail specifications used 
with control level and overflow indicators that specify when 
output records are to be written. 
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If it is necessary to continue the description of indicator 
conditions ixnder which output should occur, the specifications 
should he made in AND or OR specifications lines following the 
type of record entiy. 



ADD (Columns 16-18) 

Etitiy Description 

ADD A record is to he added to the file. 

When a record is to he added to an input, output, or update file, 
the word ADD is entered in columns 16-18 of the first line for 
each record to be added. Disc must be specified as the output 
device for the file to which the record is to be added, and an A 
must be coded in column ^ of the File Description Specifications 
Sheet for the file. Columns 16-18 may also be used for the 
stacker/overflow and space specifications for printer or card 
files. 



STACKER/OVERELOW (Column 16) 

Entry Description 

Blank The overflow routine is not to be fetched. 

1-4 (for card files this specification is 

reserved for future implementation.) 

F The overflow routine is to be fetched 

for a printer file. 

Column 16 may be vsed to specify that the overflow routine is to 
be used for a printer file. 



SECTION 8 PAGE 10 



An F entered in column 16 is used to specify the fetch overflow 
routine and causes overflow lines to be printed ahead of the 
usual time. The fetch overflow routine does not automatically 
cause forms to advaiKJe to a new page, but merely prohibits the 
printing of remaining detail and total lines until overflow :Llnes 
are printed. To achieve page advancing, a skip to channel 1 must 
be specified on a line conditioned by the overflow indicator. 

The overflow routine is fetched onJ^ if aH conditions specified 
by the indicators in columns 23-31 are met, and an overflow has 
occurred. The IP indicator may not be used with fetched overflow 
lines. 



SPACE (Columns 17-18) 

Columns 17-18 are used to specify Ijjie spacing for one page of an 
output file to te printed. Line spacing may be recjuired both 
before and after a line, thus the entry is divided into before 
and after columns. Up to three spaces may be specified both 
before and after a line of print, so that as msmy as six spaces 
can be left between two printed lines. 

If columns 17-18 are left blank, single spacing occiars 
automatically after- each llrxe is printed. 

Wnen the destination of a spacing operation is beyond the 
overflow line but not on a new page, the overflow indicator is 
turned on until all. overflow lines are printed. 

When space and skip are specified on the £\&jm line, they are done 
in the following order: 

Skip before tlrie line of print. 
Space before the line of print. 
Skip after the line of print- 
Space after ttie line of print. 



BEFORE (Column 17) 
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2202.003-0003 - 3/30/73 



Entry 
Blanl« 


1 

2 

3 



Description 

No spacing is required TDef ore a line is 
printed , 

No spacing is required. 

One space is to iDe left 'before each line 
is printed. 

Two spaces are to "be left before each line 
is prirt<^d. 

Three spaces are to iDe left Isefore each 
line is printed. 



If columi 17 is left blank, no spacing^ occurs hefore print; 
5the?Sj^ one, two, three, or no lines areT.eft blank before the 
next line is printed, according to the number entered. 



AFTER (Column 18) 



Entry 
Blank 


1 

2 
3 



Description 

No spacing is required after a line 
is printedo 

No spacing is required. 

One space is to he left after each line 
is printed. 

Two spaces are to he left after each line 
is printed. 

Three spaces are to be left after each line 
is printed. 



I If columns 17 and 18 are left blank, single spacing occurs 
' automatically; otherwise one, two, three, or no lines are left 

blank after each line 3s printed, according to the number 

entered. 
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SKIP (Columns 19-22) 



Skipping IS controlled by the printer carriage control tape. A 
skip can be made to channel 01 for a new page, or to any cT the 
other 11 channels assigned in the line counter specifications for 
succeeding pages. Skips can be specified to occur both prior to a 
line of print (columns 19-20) and after the line is printed 
(columns 21-22). If the columns are left blank, no skipping 



occurs. 



If an L IS spe<jified in column 53 of the control card, the 
generated RPG progi^m only simulates skips to a line. It gets its 
starting-point by an initial skip to channel 01, and assumes that 
channel 01 is on line 06. All subsequent spacing is then relative 
to that starting p6int. 
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BEFORE (Coiumns 19-20) 



Eh try 
Blank 

01 

02-12 

01-99 
A0-A9 



B0-B2 



Description 

Mo skipping is to be done before 
a line is printed. 

A skip is to be made to a new 
page before a line is printed, 

A skip is to be made to the 
indicated channel number before 
a line is printed. 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be 
made to the line indicated. 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be made 
to the specified line in the rsnge 
100 (AO) through 109 (A9). 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be 
made to the specified line in 
the range 110 (BO) through 112 (B2). 



If printing is 
otherwise skips 



to be continous, columns 19-720 are left blank; 
can be made to other print channels before 

printing starts to begin a new page or format the printing on the 
Current page. 



SECTION 8 PAGE 12.2 



AFTER (Columns 21-22) 



Entry 
Blank 

01 

02-12 

01-99 



AO-AS 



B0-B2 



Description 

No skipping is to be done after 
a line is printed. 

A skip is to be made to a new 
page after a line is printed. 

A skip is to be made to the 
indicated channel number after 
a line is printed. 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be made 
to the line indicated. 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be 
made to the specified line in 
the range 100 (AO) through 109 (A9). 

An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be 
made to the specified line in 
the range 110 (BO) through 112 
(B2). 



An entry in columns 21-22 causes skipping to the specified 

channel to be performed after a line is printed. An 01 

specification, for example, would cause the next line to start at 
the top of a new page. 
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OUTPUT INDICATORS (Columns 23-31 ) 

The output indicator columns are divided into three entries. Up 
to three indicators can be entered per line. One indicator can be 
entered in columns 23-25, another in columns 26-28, and a third 
in columns 2S-31 . If the actual state of the indicators coincides 
exactly with that described in columns 28-31 (and all AND/OR 
lines;, and the line is an output field line, the field is put 
into Its output record. If the state of the indicators coincides 
and the line is a record description line, the record is output. 
(See Appendix B, Tables B2 and B3, for indicator summaries.) 



NOT ON (Columns 23, 26, 29) 



Entry 
Blank 

N 



Description 

The indicator specified in the 
next two columns is on. 

The indicator specified in the 
next tvo columns is not on. 



If an indicator is not required to be on to condition an output 
operation, an N must be placed in the column immediately 
preceding the indicator specification. The indicator must then be 
exactly as specified (not on) before the output operation can be 

performed . 
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INDICATOR (Columns 24-25, 27-28, 30-31) 

Entry Description 

01_Q9 A resulting indicator, field indicator, 

or record identifying indicator previously 
assigned to the record or field is to be 
used. 

L1-L9 A control level indicator previously 

assigned to the record or field is to be 
used. 

IiO-H9 A halt indicator previously assigned to the 

record or field is to be used. 

0'A-OG,CfV An overflow indicator previously assig:ned 

to the file containing this record or field 
is to be used. 

MR The matching record indicator is to be used. 

LR The end-of-job indicator is to be used. 

IP The first page indicator is to be used. 

This indicator cannot> be used with record 
types T and E. 

LO The level zero indicator is to be used. 

U1-ua An external indicator is to be used. 

Up to three indicators may be entered on a line. When a field is 
to be printed, the output^indicators in columns 23-31 must be 
entered on the same line being used to specify the field name 
(columns 32-37)'. 

A file named in the output-forma,t specifications may be 
conditioned by an external indicator (U1-U8) in the file 
description specifications. External indicators can also be used 
to condition a record or field. No output can occur to a file it 
an external indicator conditions the file and that indicator is 
off- 
Fields can be prevented from printing through the use of 
indicators . 
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FIELD NAME (Columns 32-37) 



Entry 
Blank 



1-6 
characters 



*PLACI 



PAGE 

PAGE1 

PAGE2 

UDATE 
UDAY 
UMONTH 
UYEAR 



Description 

A constant is to be entered in columns 45-70 
(edit word or constant entry). 

A field name previously assi^ied 

in the program or the name ox a table, 

array, or array item is to be used. 

This special word is used to cause a repeat 
of a field or a set of fields within a 
record or report. 

These special words are used in numbering 
the ps^s of the report. 



These special, words are used in dating the 
report. 



If a field name is used in columns 32-37, it must be the same as 

the field name assigned on the input sheet or the calculations 

sheet. Bo entry can be made in columns 7-22 of the same line and 

although an edit word may be entered in columns 45-70, a constant 
cannot. 

Pields can be entered in any order. The sequence in which they 
will be moved to the output record buffer is determined by the 
order in which they appear on the specifications sheets. When a 
later output field overlaps the first field specified, the 
overlayed original data is lost. Detail printing of a selected 
field occurs when entries are specified for the field name, 
columns 32-37, and ending position, columns 40-43, in the 
Output-Pormat Specifications Sheet. Output indicators may also be 
specified. When a field is to he printed, the associated output 
indi<3ators (columns 23-31) must be entered on the same line being 
used to specify the field name (columns 32-37). 

Numeric field signs (+ or -) lie in the units position containing 
the rightmost digit. A minus sign in the rightmost digit of a 
numeric field prints as a letter uinless the field is edited (see 
column 38). 
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Special Word *PLACE 

The special word *PLACE is used to cause specified fields to be 
repeated ending in a specified position of an output record, 

♦PLACE must be specified after the field names which are to be 
placed in different positions in one line. The entry then causes 
all fields in a record type which are listed above it to be 
written. *PLAC£ must appear on a separate specification line for 
every additional time the field or group of fields is to be 
written or punched. 

An end position must be specified for every *PIiACE line. The end 
position specified for *PLACE must be at least twice the hi^est 
previously specified field end position. When *PIjACE is specified 
for card output, the fields and constants named above *PLACE will 
be repunched. A *PIACE specification must not be conditioned by 
indicators in columns 23-31. *PLACE is automatically conditioned 
by the same indicators which condition the field or fields to be 
repeated. Columns 38, 39, and 44-70 should be blank for *PLACE, 



Special Words PAGE, PAGE1, PAG£2 

Special word PAGE, PAGE1, or PAGE2 is entered in columns 32-37 
when the report pages are to be numbered. The sane entry cannot 
be used for two different output files. The page numbering 
sequence can be restarted at any time by setting the PAGE field 
to zero before it is printed. This can be done via the blank 
after entry (column 39) or by using an output indicator. A PAGE 
field is always printed, regardless of whether or not it is 
conditioned by an indicator. If the indicator is as specified in 
columns 27-31, the P;^E field is set to zero, 1 is added, and the 
page number is writte;n as 1, 

A page field is assumed to be a four-position numeric field with 
no decimal positions. Leading zeros are suppressed and the sign 
is not printed in the rightmost position unless the field is so 
edited. 
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Special Words UDATE, UMOWTH, UDAY, UYEAR 

Special words UDATE, UMOOTH, UDAI, and UYEAR are entered in 
columns 32-37 to record the system date in the report. UDATE 
produces a six-character numeric date field in mmddyy or ddyymm 
format (specified in column 21 of the control card). Using edit 
code Y, the edited date field is eight characters long, in one of 
three formats: 

Domestic (MM/DD/YY). 
United Kingdom (DD/MM/YY), 
European Convention (bD,M4,YY)« 

UDAY, UMOMTH, and UYEAR may be used for days only, months only, 
and years only, respectively. The special word date fields may 
not be changed by any operations specified in the calculations or 
output sheet. 



EDIT CODE (Column 38) 



Entry 

Any valid 
edit code 



Description 

The edit code specifies the type of 
editing to be done on the specified numeric 
field. 



Edit codes can be used only for numeric fields. The table shown 
in Pigure 8-2 summarizes the edit codes provided on the 
Output-Pormat Specifications Sheet. 



COMMA 


ZERO BALANCES 
TO PRINT 


NO SIGN 


CR 


. 


YES 
YES 
NO 
NO 


YES 
NO 
YES 
NO 


1 
2 
3 

4 


A 

B 
C 
D 


J 
K 

L 
M 


X - REMOVE PLUS SIGN 
Y - DATE FIELD EDIT 
Z - ZERO SUPPRESS 









Pigure S-2. 



Edit Code Table from Output-Pormat 
Specifications Sheet, 
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Each edit code punctuates a numeric field differently, as Pigure 
8-3 shows. All codes suppress leading zeros except in the 
European Convention output format, specified by a J entered m 
column21 of the control card. In this cjase all zero balances, as 
well as all balances with zeros to the left of the decimal comina, 
are written with one leading zero: .00 is written 0,00 and .07 is 
written 0,07. An edit code specified to print zero balances 
cannot suppress the zero to the left of the decimal comma; that 
zero will always print. 

If an edit code is used to punctuate an array, two spaces eire 
left between array items. An edit word cannot be used in coluians 
45-70 if an edit code is used in column 38, except in the 
following cases: 

When leading zeros are to be repla<:;ed by asterisks, '*' miist 
he entered in columns 45-47 of the line containing the edit 
code. 

When a dollar sign (floating) is to appear before the first 
digit in the field, '$' should be entered in columns 45-47 
of the line containing the edit code. 

It is also possible to cause a dollar sign to appear before the 
asterisk fill by placing a dollar-sign constant one space before 
the beginning of the edited field, then placing * m columns 
45-47 of the line containing the edit code. 

Asterisk fill and the floating dollar sign may not be used with 
the X, y, and Z edit codes. 

(Edit codes are summarized in detail in Appendix B, Table E5. ) 
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EDIT 
CODE 


CHARACTER PRINTED | 


COMMA 


ZERO 
BALA^gCE 


CR 


MINUS 
SIGN 


1 
2 
3 
4 
A 
B 

D 
J 
K 
L 
M 


Yes 
Yes 
No 
No 
Yes 
Yes 
No 
No 
Yes 
Yes 
No 
No 


Yes 
No 
Yes 
No 
Yes 
No 
Yes 
No 
Yes 
No 
Yes 
No 


No 
No 
No 
No 
Yes 
Yes 
Yes 
Yes 
No 
No 
No 
No 


No 
No 
No 
No 
No 
No 
No 
No 
Yes 
Yes 
Yes 
Yes 


X 
Y 

Z 


Removes the plus sign. 
Edits the date field. 
Suppresses zeros. 



Pigure 8-3. Mit Code JFunctions. 



Effects of usijqg the inverted print option (control card 
specifications, column 21) in punctuating the date to obtain 
domestic. United KiAgsdoia, and European Convention formats are 
illustrated in Section 2, Pigure 2-2, 



BLANK AJFTEB (Column 39) 



Entry 
Blank 

B 



Descriptio n 

The field being described is not to be 
reset to zeros or blanks after writing. 

The field being described is to be reset 
to zeros or blanks after writing. 
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An entry is used in column 39 to reset a field to zeros or 
blanks, when the field is numeric, it is reset to zeros; when the 
field is alphanumeric, it is reset to blanks* JMo entry can be 
made for look-ahead fields or date fields assigned the names 
UDATE, UMOWTH, UDAY, or UYEAR. 

Resetting fields to zeros is usually necessary when totals are 
being accumulated and printed for several control groups. Once 
the total for one group is found and printed, totals start 
accumulating for the next group. To prevent their being added in 
the totals for the previous group, the fields should be reset to 
zeros so that accurate totals will result. Entering a E in column 
39 causes the total field to be reset to zero automatically after 
it is printed. The B must be entered on the last output line for 
that field; otherwise the field will be reset before all required 
output is printed. 

V/hen a table name is specified in the field name together with 
the blank after entry, the table item that was looked up last 
will be reset to blanlos or zeros. 



ENDING POSITION (Column 40-43) 

Entry D escription 

1-4 The number of the print or punch position 

characters of the rightmost character in the field 

being described is entered. 

The number of the i)rinting position of the rightmost character in 
a field or constEint is entered in coltimns 40-43 to indicate its 
location on the output record to be written. 

Enough space must be allowed in the output record to hold edited 
fields. The largest number tJriat can be used to indicate the end 
position for disc output is the record size. The largest number 
that can be used for printer output is governed by the number of 
print positions on the printer. When *PL/iCE is specified in 
columns 32-37 for the printer, the ending position entry 
indicates the end position of the last field of the group to be 
printed. 
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PACKED OR EIWARI FIELD (Column 44) 



Entry 
Blank 

P 

B 
2 

4 



Description 

The field is in unpacked numeric format 
or contains a.Lphanumeric data. 

The field is to be written on disc or lynched 
into a card in packed decimal format. 

The field is to be written on disc or punched 
into a card in binary format. 

The field is to be written on disc as a 
two-byte binary field. 

The field is to be written on disc as a 
four-byte binary field. 



An entry must appear in column 44 when a decimal number is to be 
written on disc or punched into a card in packed decimal or 
binary format. Packed decimal and binary fields should not be 
printed; they can only be written on disc or punched into cards. 

After decimal fields are processed they can be left in unpacked 
numeric format, but disc space is more efficiently used if they 
are converted into packed decimal or binary format. JFields 
containing five or less dibits are converted to two bytes of 
binary data for output ; fields containing six to ten digits are 
converted to four bytes. To control the binary size directly, a 2 
must be entered for tv/o-byte binary output, or a 4 for four-l?yte 

blnaiy output. 



EDIT WORD OR CONSTANT (Columns 45-70) 



Entry 

1-24 

valid RPG II 

characters 



Description 

Either an edit word is used to punctuate a 
numeric field and columns 32-37 contain a 
field name; or constant information is to be 
entered in the record and columns 32-37 are 
blank. 



Edit words and constants are specified in columns 45-70. Edit 
words are direct specifications which indicate whether or not 
specific punctuation characters are needed. Because they are 
directly specified, edit words give more flexibility than edit 
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codes. When an edit word is specified, an edit code cannot be 
used in column 38. The name of a numeric field must be entered in 
the field name (columns 32-37) and the ending position must be 
specified in columns 40-43 • An edit word cannot be longer than 24 
characters, and must he enclosed in apostrophes, with the leading 
apostrophe entered in column 45 • The edit word itself must begin 
in column 46- The number of replaceable characters in an edit 
word must be equal to the length of the field to be edited. 

The replac^ble characters are listed below. 



Character 



Position 



Use 







$ 



Any 



Where zero 
suppression 
is to end 



Wheire asterisk 
fill is to end 



Left of the 
leftmost zero 



Indicates that a digit from 
the edited field is to be 
placed in this position. 

Indicates that leading zeros 
are to be replaced by blanks 
up to and including this 
position. 

Indicates that leading zeros 
are to be replaced by- 
asterisks up to and includijng 
this position. 

Indicates that a floating 
dollar sign is to be placed 
before the most significant 
digit. 



All leading zeros 
zero or asterisk. 



£ire suppressed up to and including the first 



The niimber of repl£iceable characters in the edit word must be 
equal to the length of the field to be edited, except in two 
cases: 



An extra space must be left in the edit word for a floating 
dollar sign to ensure a print position for the dollar sign 
if the output field is full. 

An extra space can be left in the edit word when the fii-st 
character in the edit word is a zero. As a result, the field 
to be edited is not zero~euppressed, but all other specified 
editing is done. 
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All characters except ][(, 0, *, and $, listed above, are 
non— replaceable characters. Non-replaceable characters always 
print in the i>ositions indicated in the edit word, except in two 
cases: 

When CR and the minus si£;n (-) are used to the right oi* the 
rightmost replaceable character, they are printed only when 
the field is negative. Blanks are printed otherwise. All 
characters between the CH or minus sign, plus the rightmost 
replaceable character, are printed only when the field is 
negative. 

All characters inserted between digits of the field are 
zero-suppressed along with the digits of the field. 

An ampersand (&) is used in an edit word to represent a blank. A 
double apostrophe should be used in either an edit word or a 
constant to represent an apostrophe. 

Constants (Figure 8-4) comprise any unchanging information that 
is entered by a specification. The data is entered exactly as it 
is to appear m the output record. Columns 32-39 and 44 should be 
blank. The constant should be enclosed in apostrophes with the 
leading apostrophe in column 45, 
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Figure 8-4. Examples of Constant Information, 



PHCXIJRAM IDENTIFICAI'IOW (Columns 75-80) 



Entry 

Any 
characters 



Dc is or ipt ion 

These columns may be used for programmer 
comments . 



The program identification entry of all cards following the 
control card may contain any chsract€>rs, including blanks. The 
columns may be used for programmer comments, if desired. 



PAGE 



APPENDIX A> DETAILED RPG II OBJECT PROGRAM CYCLE 



INITIALIZATION. 

SET USER 

INDICATORS 



GET NEXT 
FILE CONTROL 
TABLE ENTRY 




LOAD TABLE 

OR ARRAY 

FILE 



CLOSE 
FILE 



MOVE LOOK- 
AHEAD FIELDS. 
IF PRESENT 



APPHtfDIX A PAGE 



/ FIRST \ 
< CYCLE ^ 

jjNO 

^/look>\ 

/^AHEAD ON \ 

<r RECORD JUST > 

\PR0CESSE^/ 

pJO 


YES 






YES 






J 




/ READ FROM \ 
< FILE JUST ) 
\ PROCESSED / 




i 




lOENTIFV 

RECORD 

READ 


1 ^^ 









FROM 
PAGE 



o 



NO y RECORD 

''WITH MATCHING"" 



YES 




SET ON 

L1L9, LR 

INDICATORS 



-0 



TO 

PAGE 

A.3 



SELECT LOWEST 

SEQUENCE/HIGHEST 

PRIORITY RECORD, 

PERFORM SEQUENCE 

CHECK 




APPENDIX A 



PAGE 




TURN ON 
RECORD I.D. 
INDICATOR 



SET ON 

CONTROL LEVEL 

NDICATOR IF LEVEL 

BREAK OCCURRED 



FROM 

PAGE 

A-Z 

G> 




PROCESS 

TOTAL 

OVERFLOW 

OUTPUT 



PROCESS \ 
HEADER, \ 
^DETAIL overflow) 
OUTPUT / 






SET MR 

INDICATOR ON 

OR OFF 



MAKE DATA 

AVAILABLE 

FROM SELECTED 

RECORD 




MOVE 

LOOK-AHEAD 

FIELDS 



PERFORM 

DETAIL 

CALCULATIONS 



APPENDIX A 



PAG£ 



FROM 

PAGE 

A-31 

G> 




'^CONTnOLLEOS^q 
CAMCEL? 



DOLR 
CALCULATIONS 



PERFORM 
LR OUTPUT 



PROCESS 

TABLE AND 

ARRAY 

OUTPUT 



CLOSE 
FILES 



z 



f END OF JOB j 



APPEl\iDIX B. EPG II REFERENCE TABLES 



PAGE 



COLLATINO 




HEXADECIMAL 


SEQUENCE 


CHARACTER 


EQUIVALENT 


1 


Blank 


40 


2 


* 


4A 


3 




4B 


4 


< 


4C 


B 


I 


4D 


S 


+ 


4E 


7 


1 


4F 


8 


a 


SO 


9 


1 


ISA 


10 


$ 


S8 


11 


• 


sc 


12 


1 


so 


13 


: 


SE 


14 


- 


6F 


IS 


- (minus) 


60 


16 


/ 


61 


17 




68 


18 


% 


ec 


19 


- (undsrscora) 


90 


20 


> 


6E 


21 


t 


8F 


22 




;a 


23 


# 


78 


24 


» 


7C 


25 




70 


28 


n 


7E 


27 




7F 


28 


A 


CI 


29 


8 


C2 


30 


C 


C3 


31 


D 


C4 


32 


E 


C8 



COLLATING 




HEXADECIMAL 


SEQUENCE 


CHARACTER 


EQUIVALENT 


33 


F 


C8 


34 


G 


C7 


38 


H 


08 


38 


1 


C9 


37 


J 


01 


38 


K 


02 


39 


L 


03 


40 


M 


04 


41 


N 


OS 


42 





08 


43 


P 


07 


44 


Q 


08 


48 


R 


09 


48 


S 


E2 


47 


T 


E3 


48 


U 


E4 


49 


V 


ES 


50 


W 


E8 


51 


X 


E7 


52 


¥ 


E8 


53 


Z 


EO 


64 





FO 


56 


1 


F1 


56 


2 


F2 


57 


3 


F3 


58 


4 


F4 


60 


B 


FB 


60 


8 


F6 


61 


7 


F7 


62 


8 


F8 


63 


9 


FB 



Table B1. RPG II Collating Sequence, 



ftt 



H 
O 



Indicators 



01-S9 

HO 

H1-«3 

IP 

MR 

OA-OG,OV 

LO 

L1-L9 
LR 

U1-IJ8 



X 
1 
2 

3 
4 
5 
6 



File Description 
Sjjecifications 



Input Specifications 



Overflow 
Indicators 
(3>34) 



Iftecord 

File jidentifying 
Conditioning I Indicator 



(71-72) 



Xs 



(1S-20) 



Control 

Level 

(59-60) 



X 
X 

X 



X 

X 



iField 

Record 

Kelation 

(63-64) 



X2 



X2 



Field 

Indicator 

(6^70) 



X 
X 
X 
X 
X 
X 

X 
X 



Calculation Specifications 



Control 

Level 

Indicator 

(7-e) 



Operation 

Indicator 

(9-17) 



X 
X 

X 



X 

X 

X 

X6 

X 

X 

X 

X 

X 



Resulting 

Indicator 

(54-59) 



X 
X 
X 

X 

X 
X 

X 
X 

Y 



Output-Format 
Specifications 



Conditioning 

Indicator 

(23-31) 



X 
X 
X 
)3 
X 

y^ 

X 
X 

X 

Y 



Denotes the indicator that may be used. 

Kot valid on look-ahead fields. 

When field named is not a match or control field. 

Only for detail or heading lines. 

Cannot condition an exception line, but may condition fields within the exception record. 

Not valid for table input files. 

formally off, even the first time through the object program cycle, unless it is purposely set on. 






►d 

I 



ro 



I 

* 



H 

a 

o 

a 



ft 



TYPE OF 
IMDICATCR 


MaEY 


WHERE 
SPECIi'IHD 


SPECI- 
PICATIOK 


OOLS. 


WKHiE 
USED 


SPECI- 
FICATION 


OOLS. 


TURNED ON 


TURNED OFF 


EUl'ES 


Level 
Zero 
Internal 


LO 


Calailation 
Sheet 


RESULTING 
INDICATORS 


54-59 


Calcu- 
lations 

Output 


CONTROL 
LEVEL 
OPERATION 
INDICATORS 
OUTPUT INDI- 
CATORS 


7-8 

9-17 

23-31 


At the beginning of 
the program cycle. 


By calculations 
specifications. 




Control 
Level 


L1-L9 


Input Sheet 

Calculation 
Sheet 


RECORD INDI- 
CATOR 
CCMTROL 
LEVEL 

FIELD IHDI- 
CAIOfiS 
RESULTING 
IMDICAIORS 


19-20 
59-60 
65-70 
54-5S 


Input 

Calcu- 
lations 

Output 


FIELD RECORD 

RELATION 

INDICATORS 

CONTROL 

LEVEL 

OPERATION 

INDICATORS 

OUTPUT IHDI- 

CATORS 


63-64 

7-8 

9-17 

23-31 


When the value in a 
control i'ield chan- 
ges (all indicators 
of the lower levels 
are also turned on) 
or individunlly by 
input or calcula- 
tions specifica- 
tions. 


At the end of the 
following detpflil 
cycle, or by cal- 
culation specifi- 
cations. 


1 


End-of- 
Job 
Internal 


IR 


Input Sheet 

Calculation 
Sheet 


FIELD lUDI- 

CATORS 

RECORD IflDI- 

CATQR 

RESUT.TTMG 

INDICATORS 


65-70 
71-72 
54-5S 


Calcu- 
lations 

Output 


CONTROL 

LEVEL 

OPERATION 

IMDICMX3BS 

OUTPUT 

INDICATORS 


7-8 

9-17 

23-31 


After processinp- 
the last record of 
the last form (see 
column 17 of the 
file description 
specifications ) , 


At the beginning 
of processing. 


1 
(can 
not 
be 
SETOF) 

2 


Hatching 
Record 
Internal 


MR 


Input Sheet 

Calculation 
Sheet 


FIELD RECORD 
RF.JJaiON 
INDICATORS 
FIELD INDI- 
CATORS 
RESULTING 
IKDICATORS 


63-64 

65-70 
54-59 


Calcu- 
lations 
Output 


GPMATION 
INDICATORS 
OUTPUT INDI- 
CAKfflS 


9-17 
25-31 


If the matching 
field contents of 
the record of a 
secondary file 
match the match- 
field contents of a 
record in the pri- 
mary file; or by 
calculations speci- 
fications. 


When all total 
calculations and 
output are com- 
pleted for the 
last record of the 
matching group; or 
by calculations 
specifications. 




Overflow 
Internal 


OA.OB 
OC.OD 
OE,OF 
OG,OV 


Pile Descrip- 
tion Sheet 
Input Sheet 

Calculation 
Sheet 


OVERFLOW 
INDICATOR 
FIELD INDI- 
CATORS 
RESULTING 
INDICATORS 


33-34 
65-70 
54-59 


Calcu- 
lations 
Output 


OPERATION 
INDICATORS 
OUTPUT INDI- 
CATORS 


9-17 
23-31 


If the destination At the end of the 

of a skip, space, detail cycle. 

or print operation 

falls within the 

forms overflow 

area. 


3 



I 



5 






v^ 



TYPE or 

IKDICATCR 



Field 
2ero i 
Blank; 
Plus; 
Minus 



Record 
Identify- 
ing 



EICTKY 



01-99 



01-99 



Resulting 

Plus 

Minus 

Zero 
Compare 
Operation 

High 

Low 

£Qual 
Look-up 
Operation 

High 

Low 

Equal 
Testz 
Operation 

High 

Low 

Bcual 



WHEIvE 
SPECIFIED 



Input Sheet 



Input Sheet 



01-99 



SPECI- 
FICATIOi; 



FIELD INDI- 
CATORS 



HECORP IW£I- 
CATOR 



cok;. 



65-70 



19-20 



WHEBE 
USED 



Calcu- 
lations 
Output 



Calculation 
Sheet 



First 
Page 
Internal 



IP 



Halt 



HC-H9 



rtfSUIi'liW 
INDICATORS 



Input 



Calcu- 
lations 
Output 



SPECI- 
FICATION 



OPERATION 
INDICATORS 
OUTPUT INDI- 
CATORS 



54-5': 



Calculation 
Sheet 



Inpit Sheet 



Calculation 
Sheet 



OPERATIOii 
IKDICAIORS 



HECORD INDI- 
CATOR 
FIELD INDI- 

RESULTING 
IKDICAIORS 



FIELD RECORD 
RELATION 
INDICATORS 
OPERATION 
INCICAl'QRS 
OUTPUT INDI- 
CATORS 



Calcu- 
lations 
Output 



OPtEATION 
INDICATORS 
OUTPUT INDI- 
CATORS 



OOLS. 



9-17 
23-31 



6>64 

9-17 
23-31 



TURNED OH 



By blank or zero in 
specified field; by 
plus in specified 
field; by minus in 
specified field. 



When specified rec- 
ord has been read 
and before total 
calculations are 
executed . 



TURNED OFF 



Before this field 
status is to be 
tested the next 
time. 



Before the next 
record is read 
during the next 
processing cycle. 



9-17 



19-20 
£5-70 
54-59 



Output 



Input 



Calcu- 
lations 
Output 



9-17 By a positive bal- 
ance m the field, 

23-31 by a negative bal- 
ance in the field, 
by a zero balance 
in the field. 
If factor 1 > fac.2 
If factor 1 < fac.2 
If factor 1 = f8c.2 



If table > factor 1 
If table < factor 1 
If table = factor 1 



If C zone present. 
If D zone present. 
If no C or E zone; 
by a no-record- 
found condition. 



OUTPUT INDI- 
CAl-ORS 



FIELD RECORD 
RELATION 
IKDICAIORS 
OPFBATION 
INDICATORS 
OUTPUT INDI- 
CATORS 



NOTES 



The next time a 
calculation is 
perf oraed for 
which the program 
specifies the ind- 
icator as a resul- 
ting iiKiicator and 
the condition is 
not satisfied. 



23-31 At the beginning of 
processing, before 
any input records 
are read. 



63-64 

9-17 
23-31 



Before the first 
detail record is 
read. 



Whenever the speci- 
fied field status 
or record identifi- 
cation condition is 
satisfied. 



Internally, at the 
end of the detail 
cycle. 



i 



^ 
^ 

m 



HI 



CO 



«< 

o 

& 

e+ 
O 

O 

M- 
Hj 
H- 

B 



TYPE Oi 
IMDICATCR 



External 



iiKXKl 



U1-LI8 



WHERE^^ 
SFECIFIiyj 



Jile. Descrip- 
tion Sheet 
Input Sheet 

Calculation 
Sheet 



SPECI- 

rlT /^ A fTt "r r\l 

J!J.Ofti.iVJi'< 



ilLE COWDI- 

TIOK 

FIELD liiDI- 

CAIORS 

RESUITIHG 

luDICAl-OJtS 



(X>LS, 



71-72 
65-7C 
54-5S 



WLERE 
USED 



Input 



Calcu- 
lations 
Output 



SPECI- 
riCATICK 



FIELD liEOOiiD 

RELATIGti 

UJCICATOKS 

RESULTIIiG 

IBCICAl'ORS 

OUTPUT IfiDI- 

CAl-ORS 



63-64 

54-59 
23-31 






Prior to object 
pro£ram execution 
by a KiRX/OS control 
language parameter. 



TURiiED CFF 



By input or calcit- 
lations specifica- 
tions. 



iiiOTS; 



Note 1. 
Note 2. 
Mote 3. 
Note 4. 



Turnine indicators on or off can also be accomplished by using SETON and SETOF operation codes. 
All control level indicators fL1-LS) are also turned on when LR is turned on. 
The overflow indicator remains on during the foUowine detail calculations and output cycles. 
This indicator is used to condition printing of the first page of the report. 



I 






O 






i 

s 



Ol 



c 

H 
fD 



< 



rt- 
O 



a 
a> 
tn 






O 



COMMAKD 


fACTOR 1 


i'ACTOH 2 


RESULT 


LIT 


I'LD 


ARR 


TAG 


SUB 


ili\' 


ALB 


WUM 


LIT 


FLD 


AfiR 


TAG 


SUB 


vm 


ALE 


HUK 


LIT 


SUj 


ARR 


TAG 


SUB 


FL« 


ALB 


NUM 


AEC 


X 


X 


X 


- 


— 


- 




X 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


Z-ADD 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


SUB 


X 


X 


X 


- 


- 


- 


- 


X 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


Z-SUB 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


- 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


MULI 


X 


X 


X 


- 


- 


- 


- 


X 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


DIV 


X 


X 


X 


- 


- 


- 


- 


X 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


KVK 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


X 


_ 


- 


- 


- 


- 


X 


SQKT 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


- 


X 


- 


X 


X 


- 


- 


- 


- 


X 


XRX)T 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


X 


- 


- 


- 


- 


X 


- 


X 


- 


- 


- 


- 


- 


X 


MOVE 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


X 


X 


- 


X 


X 


- 


- 


- 


X 


X 


MOVEL 


- 


- 


*" 




- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


X 


X 


- 


X 


X 


- 


- 


- 


X 


X 


MHHZO 


- 


- 




- 


- 


- 


- 


- 


X 


X 


X 




- 


- 


X 


- 


- 


X 


X 


- 




- 


X 


- 


MHLZO 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 




- 


- 


X 


- 


- 


X 


X 


- 




- 


X 


X 


MLLZO 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


X 


X 


- 


X 


X 


- 




- 


X 


X 


MLKZO 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


X 


- 


- 


- 


X 


X 


- 


X 


X 


- 


- 


- 


X 


- 


COUP 


X 


X 


- 


- 


- 


- 


X 


X 


X 


X 


- 


- 


- 


- 


X 


X 


- 


- 


- 


- 


- 


- 


- 


- 


TESTZ 


- 




- 


- 


- 


- 


- 


- 


- 


- 


- 




- 


- 


- 


- 


- 


X 





_ 


^ 


_ 


X 


- 


BITOIJ 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


- 


- 


- 


- 


X 


- 


- 


X 


- 


- 


- 


- 


X 


- 


BITOF- 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


- 


- 


- 


- 


X 


- 


- 


X 


- 


- 


^ 


- 


X 


- 


TESTB 


- 


- 


- 


- 


- 


- 


- 


- 


X 


X 


- 


- 


- 


- 


X 


- 


- 


X 


- 


- 




- 


X 


- 


SETOK 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 




- 


- 


- 


- 


- 


- 


X 


SETOI" 


- 


— 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


GOTO 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


X 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 


- 









On 



(t) 



< 

o 



O 
» 

I 

CD 



W 



o 
ro 



COMMAMD 


FACTOR 1 


FACTOR 2 


RESULT 


LIT 


iLD 


ARR 


TAG 


SUB 


FLU 


ALB 


I.UM 


LIT 


i'LD 


ARR 


TAG 


SUE 


Flii 


ALE 


IJUK 


LIT 


FLD 


ARR 


TAG 


SUB 


FLIi 


ALLi 


NUM 


TAG 

IDKUP 

BEGSR 

EKDSR 

EXSR 

EXCPT 

FORCE 

DSPLY 

READ 

CHAIh 

DEBUG 

EXIT 

RLABL 

ULABL 


X 

X 

X 

X 


X 

X 

X 

X 


- 


X 
X 


X 


- 


X 

X 

X 
X 


X 

X 

X 
X 


- 


- 


X 


X 


X 


X 
X 
X 
X 
X 


X 


X 


X 


X 
X 

X 
X 


X 

X 

X 
X 


- 






X 

X 
X 


X 

X 
X 


LIT = Literal, 

FLD = rield or array item, or table item). 

ARR = Array. 

TAG = lag. 

SUB = Subroutine name. 

iXN = Filename. 

ALB = Alphabetic. 

JSUM = i^umeric. 



I 

i 



o 



I 



^ 






Biit 
Code 


Commas 


Decimal 
Point 


Si/Ti for Wc^Tative lAlarice 


Print-Out On Zero Ifelanne* 


Zero 
Suppress 


«o Sign 


CH 


- (Minus) 


Domestic Arel 
United Kingdom 


ntropeen 
Convention - I 


iSuropeam 
Convention - J 


1 


Yes 


Yes 


Ko Sign 






.00 or 


,00 or 


0,00 or 


Yes 


2 


Yes 


Yes 


^o Sign 






Blanks 


Blanks 


Blanks 


Yes 


3 




Yes 


Wo Sign 






.00 or 


,00 or 


0,00 or 


Yes 


4 




Yes 


Ho Sign 






Blanks 


Blanks 


Blanks 


Yes 


A 


Yes 


Yes 




CK 




.00 or 


,00 or 


0,00 or 


Yes 


E 


Yes 


Yes 




CH 




Blanks 


Blanks 


Blanlcs 


Yes 


C 




Yes 




OR 




.00 or 


,00 or 


0,00 or 


Yes 


D 




Yes 




CK 




Blanks 


Blanks 


Blanks 


Yes 


J 


Yes 


Yes 






- 


.00 or 


,00 or 


0,00 or 


Yes 


K 


Yes 


Yes 






- 


Blanks 


Blanks 


Blanks 


Yes 


L 




Yes 






- 


.00 or 


,0C or 


0,00 or 


Yes 


K 




Yes 






- 


Blanks 


Blanks 


Blanks 


Yes 


X»* 




















Y»** 


















Yes 


Z 


















Yes 


* z 

c 


ero t)alances for the Knropean Convention formal 
oltunn 21 of the control card si'ccifications. 


i are written in two ways, depending on the entry made in 


»* 1 


he X code performs no editing. 






*** The Y code suppresses the leitiEOst zero only. Ihe Y code edits a three- to six-digit field according to the 
following pattern: 




nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 






I 
u 


f a data field of six digits is packed on aisc 
ill occur. The probleK is solved by luovint th< 


and the Y edit code is used with the data field, an error 
3 data field to another field. 



I 









00 



PAGE 



APPENDIX C. GLOSSARY OF TERMS 



AI3DR 0UT file . , .... 

— A record address file which is written out l^y the utility sort 

program. 

a lpha.betic characters 

TEe kib aipnaoetic EBCDIC characters and three other EBCDIC 
characters: #, $, and @. 

alphanumeric characters 



pnanumeric cnaracters 

Any oi' the 2^6 EBCDIC characters. 



a lphanumeric fields 

All. riejas I'or wnich a decimal-positions specification has not 
been maxie in the appropriate column of the specifications 
f ona. Alphanumeric fields can contain any of the 256 EBCDIC 
characters . 

alternate coHatinis; sequen ce 

A cnaracter sequence in wnich the relative position of some or 
all. alphanumeric characters in relation to the other 
characters is changed from the normal sequence used by the 
computer. 

a lternatini?: format 

A metnoo. or aescribing two tables or two arrays which are used 
together, so that each item in the first table or array is 
associated with a corresponding item in the second table or 
array which gives additional information. 

alternating, table or array 



ternatinF. table or array 

The se'<iond oi" two rexated tables or arrays. 



array 

3\ 'group of data items arranged systematically for ready 
reference. 

array file 

A sequential input file which contains array entries specified 
by the programmer and is processed before program execution or 
duiing program compilation, 

asterisk fill 

AsterisJis printed in place of leading zeros. 

binary format 

""T format "in twos complement form wherein each field on disc 
must be either two or four bytes long. Two-byte fields contain 
a one-bit sign followed by a 15-bit numeric value and can 
contain up to five decimal numbers. Pour-byte fields contain a 
one-bit sign followed by a 31-bit numeric value and can 
contain up to ten decimal numbers. 
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— A "lime-<saving method of searching through a large table in 
ascending or descending sequence. 

— K single binary digit in a binary number, represented by if 
it is negative, or 1 if it is positive, 

— Skippi^ backward or forward to an instruction other than the 
next one in the sequence. 

^^ sequence of eight adjacent binary digits (bits) operated 
upon as a unit. 

chained file , -, , ^ . ^-, • 4.u 

— A disc — Tile that is read randomly or loaded directly via the 
CHAIN operation code. 

character structure . 

TEe unique combination of zone and digit punches m a card 
that represent a specific alphanumeric character. 

Code Formatter Phase . ^, 

— TEe — phase of the compiler in which error messages, the source 
program, a memory map, external references, and entry points 
are listed and the object program is written out in 
relocatable format. 

Code Generation Pliase , . , . , 

— TRS — phase — ^ — =EEe compiler in which the source program is 

translated into machine language instructions and compile time 

tables and arrays are processed. 

collating se quenc e , , ^ , ^ ^ . 

— rne — oroer m the computer in which^ each, alphabetic, nugi^ric, 
or speSal character ife related to allotherS Jsee AppeMix B, 

Table B1). 

comp ile time table or array . -n •■ -, 

— A table or array loaded at compilation time and compiled along 
with the source program. 

constant ^ , j 4.-4.T 

— 75iv — unchanging iiLformation, such as a column header or title, 

that is entered by a specification. Confstants are enclosed in 

apostrophes. 

control break ^ ^ , . , 

A change in the control field information of two records which 
causes the control level indicator(s) to turn on and the 
operations conditioned by the indicator(s) to be performed 
before a new record is processed. 
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control card 

TEe initial card in the RPG II source progi^m deck. The card 
provides the compiler with the control information necessary 
to translate the soui'ce program into an object program. 

control field 

I nielti io which a control level indicator (L1-L9) has been 
assigned to indicate the point at which specified operations 
are to be performed. 

control CTOup 
K p*oup 01 records which all have the same information in the 
control field. 

control level indicator 

An indicator which is' turned on to indicate that a change in a 
control field has occurred and operations are to be performed 
or information is to be printed. 

Cross-Jteference Phase 

Tjne optional phase of the compiler in which cross-reference 
lists of file names, field names, and indicators are 
generated. 

demand file 

TT ii±e rrom which selected input or update information can be 
sequentially read for calculations, via the READ operation 
code, as required. 

detail calculations 

ihe segment ST" the object program operating cycle in which 
data from a selected record is made available for processing 
and the matching record (M) indicator is turned on or off. 

detail operations 

THe first segment of the object program operating cycle, in 
which heading and detail records are written aM selected 
program indicators are set off. 

detail record 

75i output record containing information that comprises the 

subject matter of the report. 

device 

The input or output hardware used for a particular file. 

display file 

7i TTIS Composed of information gathered from various fields 
used by a program. Tlirough use of the DSPLY operation code, 
fields or records in a display file can be printed directly 
from storage and data can be keyed into a display field or 
record in storage. The console is the only device that can be 
associated with a display file. 
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domest ic date form at . . . , 4.u /n\ +u« 

— MMyDDm, — wEere the numerics representij:]g the month (m;, the 
day (b), and the year (Y) are separated by slashes. 

FPCDIC 

— HScEended Binary-Coded-Decimal Interchange Code, 

^1™ ggb^^hS?a cter machine language code used in the MEMOHEX 
System (see Appendix B, Table B1). 

^A^ ^Oftl- chaxacter code which causes a specific type of 
punctuation editing to be carried out on a numeric field. 

^^Snbsn cin^ the legibility of a field by inserting special 
^hSScte?s, including spaces, before or between the characters 

of a field. 

— TEe explicit character-by-character layout of an entire 

resulting output field, using replaceable and non-replaceable 
characters. Edit vok^s are direct specifications which 
indicate whether or not specific punctuation characters are 
needed. 

European Convent ion date format ..u ^ /t^\ t«^«+v, 

— DS.MM.YY, — wHere the numerics representing the day {D), montn 
(M), and year (Y) are separated by periods. 

""""rrelo^/wSSn is written during cal.culation time. 

^^The^^portion^"l f the compiler progrsim which controls execution 
of the compiler program. The executive routine contains 
IntJut/outDut interfaces^ the ^ table., lookm) routines, and 
vafiabieFcommon io all pftases of compiler prbcessing. 

exter nal calculation operation ^.u 4. u„e. 

— M — operation performed By a subroutine or program that has 
been compiled separately from the main RPG II program. 

external characters . , 

— The characters used m input and output data. 

fetchins the overflo w routine , . ^ _ 

^l^u^ting the -ov erflow rou tine ahead of time to print sev€iral 
detail and total lines on each regM:Lar program cycle. 

^^Art"^ iri d ig§ L6 T' used to test a named input field for a plus. 
minus, zero, or blank condition, or to halt a program so that 
an error condition in the data can be checked. 
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field name 

5 unique name which identifies a particular field, array, or 
array item in an input record. 

field record relation indicator 

?5i inaicator wnose primary purpose, among a variety of 
specific purposes, is to relate a field name to a particular 
record type. 

file 

TPcollection of related records treated as a single unit. 

7t ISthod — ST" describing the input, output, and update file 
types still further. The six designations are primary, 
secondary, chained, daaand, record address, and table and 
array. 

filenam e 

A unique name assigned to every file a program uses except 
compile time table and array files. 

file or ganization 

The arranganent of records within a file. The three types of 
organization are indexed, relative, and sequential. 

file translation 

TKe translaltlon of any character code into another, such as 
the translation of an input character code to an internal 
machine code. 

file typ es 

The four categories into which all. EPG 11 files fall; input, 
output, update, and display - 

fixed dollar si gn 

A dollar sign which ialways has the same position in an edited 
field. 

fixed-length 

THS sSBiS length. All records in an indexed file must be 

fixed-length. 

floating dollar sign 

J, dollBT sign inserted before the most significant non-zero 
digit in a field. 

full table or array 

TT ta,Di.e or array in which all possible items contain data and 
nothing more can be added. 
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half-edjustin^ ^ _ . 

Kounaing, oy adding a 5 to the number at the right of the last 
decimal position specified for a positive field, or -5 if the 
field is negative, then dropping all decimal positions to the 
right of the position specified for that field. 

halt indicator 

An indicator which turns on to indicate that the program is to 
be stopped and an error mess;age written for an error 
condition, 

heading record . ^ ^, , . , -, 

An output record containing identifying information which does 
not usisally change from page to page, such as the report name, 
the date, and the column titles. 

hexadecimal no tati on ^ ^ , , . / a ^ • 

— S — number system w ritten to the base- 16 notation (see Appendix 

B, Table B1). 

hou sekeeping taskg ; , , . ^ 

— Tasks performed prior to System entrance to the object program 
operating cycle, in which all files to be used in the program 
are opened, pre-execution time tables and arrays are loaded, 
and the first p£ige is output. 

index 

' — TEe portion of an indexed file which contains a key for each 
fixed-length record and the record's location within the file. 

A Sisc file whose record locations are kept in a separate 
portion of the file called an index. 

— A method of relative referencing by which an array item may be 
referenced by its location in the array relative to the first 
item. Indexing may not be used with tables. 

input 

All data files, records, and record fields used by the object 
program. 

in put file . ^ ^ 

— The file from which a program reads its source data. 

input operation s , . ^ . , . v 

— The segment 61 the object program operating cycle m which one 
input record is selected for processing, read, and identified. 

internal c alculation operation .^, • ^i 

An operation performed m the computer within the processing 
of a single RPG II program. 
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internal characte rs 

Characters used for processing within the computer. 

inverted print option 

7S option used Jo determine the punctimtion and format used 
for numeric literals and the date field, and the edit codes 
used on output. 

item 
X" single element in a table or array which is coded as an 
entry in the specifications sheets. An item cannot extend to 
more than one record. 

last record i n dicat or , . , . ^ 

— 7SI — Sro!t?5a?ecr — ytH^Sh is turned on to indicate that a job is to 

terminate. 

lit eral 

!Eie directly specified data used in an operation. It may be 
either alphanumeric or numeric. 

A I'eature w^Eich enables the System to look at information on 
the next record available for processing in an input record, 
or on the record currently being processed in an update 
record. 

machine instruction 

TT co^Ce element," recognizable by a particular machine, that 
causes a predefined sequence of operations to be executed hy 
the macMne. 

machine language . , -, ^ 

— THe — set of characters, symbols, or signs, and the rules for 

combining them, that directly conveys instructions or 

information to a computer. 

match fields 

Selected ^record fields in the primary file which are compared 
to fields from one or more secondary input or update files for 
a matching record. Records can be matched by comparing one to 
nine fields. 

matching recor d indicat or ^ ^ . 

— M — nteSSI^' whicfi Ifurns on when a selected record field m 

the primary file matches a field in one or more secondary file 
records. The indicator is used to condition calculation or 
output operations for a selected record with a match field. 

multifile processing . ^ . ^ 

— TKe — selection ox records for processing from a primary file 
and one or more secondary files. 
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non-replaceable char^icters 

TJiose cnaracters of an edit word wMch will remain constant in 
the edited field or will be replaced by blanks. All characters 
except ^, 0, *, and $ are non-replaceable. 

non-resident pro^yam 

K program or routine which is read in from an external 
library, rather thsm stored in memory. 

nimeric characters 

The EBCDIC characters 0-9. 

nmer ic fields 

"KH fields having; a decimal-positions specification in the 
appropriate columnf; of the specifications forms. 

ob ject yroFjcam 

The set oi' machine language instructions which result from the 
compiler program "s translation of the programmer's RPG 
specifications. The object program contains all the machine 
instructions necesf>ary to manipulate information from the data 
input files and produce output files and reports. 

off indicator 

An indicator which reflects a negative condition (is set to 
00). 

on indicator 

An indicator which inflects a positive condition (is set to 
PO). 

output 

The resiilt or product of processing, 

output file 

A rale containing the records that a program writes, punches, 
or prints. 

output record 

A record containing data that has been gathered, sorted, 
calculated, or gencjrated during object program operation. 

overflow indicator 

An indicator which turns on to signal that the end of a page 
is near. 

overflow line 

The point on a page or form at which overflow occurs and after 
which detail or total printing starts. 

overlaying 

KeacLing input date in on top of data already in storage. The 
ne\^ data replaces only the amount of existing data that is 
overlayed. 
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packe d decimal format 

jH — rormat in wHich each byte of computer or disc storage is 
diAaded into two four-bit digit portioiis and no zone is used, 

PAGE , PAGE1, PAGE2 

"special words used to cause pa^e numbering on output to start 

with a number other than 1, or to differentiate between pa^e 

numbering systems for one to three different output files. 

PAGE is a four-position numeric field with no decimal 

positions. 

*PLACE 

A special word which causes output fields to be repeated 
without respecifying the field names. 

pre-execution time table or array 

^S table or array loaded with the object program before any 

input files are "read, calculations are done, or output 

functions are performed. 

primary file 

The main file from which a program reads records. The program 
uses the primary file during multifile processing to control 
the order in which the records are selected. 

program cycle 

The cycle of operations through which one record must go to be 
completely processed. 

An input file that indicates which records are to be read from 
a disc file, and the order in which those records are to be 
read. 

reco rd code cljaracter s , ^ 

— CRaractef coaes 'Oeed to identify each type of record for 
processing various operations. 

record identifying: indicator 

■""Tn indicator which is turned on to distinguish between record 

types or to indicate a record type that causes an error 

condition. 

record key . , . , .' 

— THe E^ field of each record, which is used m the index 
portion of an indexed file to identify the record. 

related tables or arrays 

' Two tables or two arrays which are used together, so that each 
item in the first table or array is associated with a 
corresponding item in the second table or array which gives 
additional information. 
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relative file .-, ^ ^ -, ^- ^ 

— A disc — ITLe whose records are called by relative record 

number, rather than by the sequence in which they were loaded. 

relat ive record number . ^ ^. ^.^ ^ 

— "R — numoer assignecT to each record, m a relative rile to 

indicate the record's position in the file in relation to the 

other records. 

r eplaceable characters ^. ,,.,..•,-,•. -^v 
— Th<Ss6 t)6sititf^ — cJT an edit word which will be occupied by 

digits of the editei field. The replaceable characters are Wf 

0, *, and $. 

resident proppram 

A progiam or routine which is stored in computer memory at all 
times, rather than read in from a library. 

resulting indicato r 

75i iiKlicator tHat is turned on according to the result of a 
calculation operation. 

search word 

3Gti alphanumeric or numeric constant, an array item, a field 
name, or a table name for which a match is to be found in a 
table or array that is bein^; searched. 

secondary file .^„ . ^ ^, 

— All fii^sTTnvolved in multifile processing except the primary 

file. 

■~T — sequential file in which records are ordered in the same 
sequence in which they are put into the file. 

short table or array 

A taDie or q^rray iiiat is not full. 

source program 

All the symbolic programming lan^piage entries coded by the 
programmer on a sjDecif ic set of RPG II specifications sheets. 
The source progrfam is then punched into cards to form the 
source program deck, which is in turn translated by the 
compiler into machine instructions for generating output files 
and reports. 

special device , , . , , , 

^Aft — 170 — CtS^ice, other than the usual one used, which has been 

selected by the programmer and linked to RPG II by a 

user-written routine that enables data to be transferred for 

the device. See Section 3, "Special Device Support," for rul.es 

governing specif i<3ations sheet entries for the special device 

feature. 
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special file 

A lile on a special I/O device linked to RPG II by a 
loser-written routine that enables data transferred to or from 
that device. Special files can only be processed 
consecutively. See Section 3» "Special Device Support," for 
the specifications rules for special files. 

special word 

A wora used as a field name to cause a particular action to be 
performed. The special words are PAGE, PAGE1, PAGE2 for pa^e 
numbering; *PLACE for iterated fields; and UDATE, UDAY, 
UMOKTH, DYEAR for the date format. 

split control field > 

A control iieia which is composed of two or more . connected or 
unconnected fields on a record. 

spread cards 

"/[ feslturte which allows one or more transactions to be linked 
to a single header on the same card. 

standard I/O devices 

TES disc unit, the card punch, the card reader, the console, 
the printer, and mja^e tic tape. 

Syntax Phase 

The phase of the compiler in which all the input cards are 
checked for accuracy, 

table 

7i 'group of data items arran^jed systematically for ready 
reference , 

table file 

A sequential input file, containing table entries specified by 
the programmer, which is processed before program execution or 
during program compilation. 

Table Overflow Phase 

The phase ol' the compiler in which field names not resolved in 
the syntax phase are finally resolved. 

total calculations 

TEe calculation segment of the object program operating cycle 
invoked if a level break occurs. 

total output operatio ns 
xne segment or tne object program operating cycle in which all 
total records are written and end-of-job processing is 
initiated if a level break has occurred. 

t otal record 

iOT Strcpnt record written out when a level break occurs that 
contains cumulative sums of the fields in detail records. 
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UDAIE 

— r~special word whose specification produces a six-character 

numeric date in either domestic (mmddyy) or United 

Kingdom/European Convention (ddinmyy) format. 

I IP AY 

""TTspecial word which may be used to obtain dates consisting of 
days only- 

— JT^ecial word which may be used to obtain dates consisting of 
months only. 

United Kingdom date format ^- a.u ^ /n^ ™^v,*-v, 

— W/M/lY, — wh6re — I^EeTTumerics representing the day (D;, month 

(H), and year (Y) are separated by sJ.ashes, 

unpacked deciirial f oriiat 

X format in which each byte of computer or disc storage holds 
one eight-bit character comprising a foior-bit zone portion 
followed by a four-bit digit portion. 

update file ^ j ^ -a. 

A disc file from which a program re-axis a record, updates its 
fields, and rewrites the record in the location from which it 
was read. 

UYEAR 

— THspecial word which may be used to obtain dates consisting of 

years only. 
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APPENDIX D. RPG II ASSUNED RECORD AND DATA HLOCK LENGTHS 



If no I^NGTK OP RECORD entry is made in columns 24-27 of the File 
Description Specifications Sheet, a warninr messa^^ is issued and 
the compiler assumes the lenpth to be the maximum record lenr-th 
allowed for the file device. The maximum record lenfrths allowed 
for the various devices are: 



DISC 


4096 


PUNCH 


80 


TAPE 


4096 


READ 


80 


CONSOI£ 


120 


PRINTER 


132 



If no LENGTH OF EI,0CK entry is made in columns 20-23 of the File 
Description Specifications Sheet and the file device is other 
than disc or tape, the compiler assumes the length to be enual to 
that Specified in the IJBNGTH OF RECORD entry, columns 24-27. 

If the device is disc or tape, and the block length is blanl^ or 
equal to the record length, the compiler computes an integer 
blockinr factor according to the following formula: 

blocking factor = 256/ (record length + 4) 

The block length is then computed as follows: 

block length = blocking factor X (record length + 4) 

The block and record lengths actually used by the comniler may 
differ from the entered or computed values for files assigned to 
printer, punch, or card devices. The compiler automatically adds 
1 to the block and record lengths of printer and punch files for 
carriage and stacker control, respectively. If a file is ST^ooled, 
the compiler also adds 4 to the block length for spooling record 
headers. 



PAGE 



APPENDIX E. RPG II SUBROUTINE UMAGE 



Since standard system liiilcage is used in RPG II, an RPG II 
program can call a COBOht iORTRAN, or assembly langua^ program. 
Because RPG II numerical data is always in packed decimal format 
ard K)RTRAN can only be used with binary or floating-point 
numerical data, however, some conversion of data would be 
required ty the user. 

A COBOL, K3RTRAN, or assembly language program cannot call RPG II 
programs because RPG II can never retiirn to the calling program. 
For the same reason, an RPG II program may not be linked with 
another RPG II program — the results would be unpredictable. 

Linkage to an external subroutine from RPG II can be accomplished 
by either of two methods: through the EXIT operation, or by 
defining a SPECIAL file. 

Register six (6) holds the parameter list address xjsed only 
for reeding SPECIAL files. This list is not used by the 
. EXIT operation. 

The save area address will be set in register seven (7). 

The return address will be in the first word of the save 
area. 

The format of the save area (pointed to by register seven) is as 
follows: 

Words Contents 

1 Return address. 

2 Previous save area address (always aero). 

3 Status word (aero). 
4-1 1 Register save area. 
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SPECIAL FIIE PARAMEIER LIST 



A parameter list pointed to by register 6 is for SPECIAL files 
only* The format of that list is as follows: 

Words Contents 

1 Length of list (always 11). 

2 Bits 0-7 (function code) 

= GET 

= 1 PUT 

= 4 OPEN 

= 5 CLOSE 

Bit 12 = 1 (variable length records are 

specified, and word 7 must point 
to the record size)» 

Bit 15 = 1 (end-of-file return address 
specified in word 9)» 

3 EiTor return code - set bo' the external routine 
(if non-zero the job will be stopped and the 
enror return code will be printed out). 

4-6 Wot used* 

7 Record size address - points to a one-word 
(two-tyte) location which will contain the 
rcjcord size (bit 12 of word 2 must be equal 
to 1). i"or GET, thes record size address and 
r<3Cord size are set by the external program* 
Eor PUT they are set by RPG II. 

8 Not used. 

9 End-of-file return address (always specified - 
bit 13 of word 2 will always be equal to 1). 

10-11 Not used. 

12 Address of record. Por GET this address is 
supplied by the extcjrnal routine* Por PUT 
this address is supplied by the RPG II 
compiler . 



PAGE 1 
2202.003-0002 - 1/31/73 



APPE]«)IX F. CONTROL LANGUAGF STATEMENTS 



REQUIREMENTS 



To perform an JRPG II compilation, an //EX (execute) Control 
language Statement card with a PGMsl^PG parameter is necessary. A 
minimum of four //DEF cards is then required to define the files, 
as follows: 

g^rd Pile 

I //DEF ID=teERRS,PHp=RPGERRMSG,STA=(P,I) Error messa^ file 

//DEF irb:LIST File to which source 

listing" is to ^o 

//DEF ID=INPUT File from which source 

input program comes 

//DEF IDfcOUTPUT Library to which relo- 

catable object library 
is to be written 

In addition to these specifications, any or all of the four work 
files may be assigned to specific volumes to increase compilation 
speed. If they are not, th^ are automatically assigned to the 
Slystem's volume. 

The id's used for the tour work files are; 

ID=MRTEXT01 
ID:^RIEXT02 
IDt=MRTEXT03 
ID=MRSIPIL 

The most efficient compilation is achieved by assigning the 
following ID s to different volumes: 



MRTEXT01, MRSIFIL, and INPUT 
MRTEXT02, MRSIFIL, OUTPUT, and LIST 
MRTEXT01 and MRTEXT03 

OUTPUT and INPUT may be on the same volume. 



APPENDIX P PAGE 2 
2202.003-0001 - 11/30/72 



//PAR CARD PARAMETERS 

The //PAR card is an optional CLS card available to the RPG II 
progranraier for naming an^ input and/or output Ji^r^ry merater and 
indicating to the compiler the" sotirce input file s approximate 
size. This determines the size in the first allocation of the RPG 
II work files. 

More than one //PAR card may be used. The parameters to be used 
on the card are IMEM=name, OMEM=naine, and either NUM=nnnrn or 
NUMBER=nnnnn. 



IM0fc=name 

This parameter specifies the name to be used f^r the input 
library member in the file defined on the //DEF ID=INFUT card. 
The parameter is required if and only if the source input is in a 
library. The name may be up to six characters long. 



OMEM=name 

This parameter specifies the name of the library member in which 
the relocatable ob.iect module is to be placed. The name is for 
the output library' member in the file defined on the //DEF 
ID=OUTPUT card; it may be up to six characters long. Presence of 
the OMEM=name ensures that an RPG object program will be output, 
even though column 10 of the control card indicates otherwise. Ii 
the OMEM=name parameter is not used, the member "^me is taken 
from columns 75-80 of the RPG II control card (see Section 2); 
otherwise the name specified overrides the naire in the control 
card. If a member name is not specified in either the parameter 
or the control card, the default name of RPGOBJ is used. 



NUM=n nnnn/NUMBER=nnnnn 

This parameter specifies the number of source statements to be 

compiled. The default, value is 1000 foV?*^® s*^J£???2^f 'uJLvS? 
value is incorrect, the program will still be compiled; however 

in large programs, the correct value should be used to ersure 
that the initial work file allocations will not require 
extension. 
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UMAGE EDITOR CI£ SPEaFICATIOKS 



The user miist specify a linkage editor //DEF lEfelNPUT card vdth 
the filename of the object libraiy in which his RPG II program 
lias been placed. He must also give the member name of the 
relocatable object module in a linlcage editor //PAR PAR=tiaroe 
card. 

He la^ either compile, linkedit* and execute his program all in 
one job, or he may perform each of the three steps separately, 
whichever is more convenient. If he chooses to do all three m 
one job step, he can condition his linkedit on successful 
compilation (no fatal errors) with an //IP Control Language 
Statemoit, written as follows: 

//IP OODE=F,QO:=K)J 

An P error code (fatal ccaapilation error) then allows him to 
bypass the linkedit and execute steps. 



CaLS REQUIRED PQR CCftflPILATIOK 



The following examples show the CIS used in compilii^ an RPG 
program. Pive common compilation situations were chosen for the 
examples* Whenever possible, default values are used for the RPG 
compiler parameters. Information peculiar to an individual 
program being ctMipiled is underlined in the eicamples. 

A complete description of MRX/GS CLS is provided in the Memorex 
publicaticm Control Ijangaafge Services — Extended. 
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EXAMPLE 1. CARD-TO-COMPILER COMPILATIOM 



Assembler Coding Form 



IHinchlng InstnictlDns 



Qraphic 



Oits 
Prog 



OFERATION 



10 11 12 13 14 M 16 17 



19 20 21 22 23.24 25.26 27 28 29 30 31 32 33. 34 35 36 37 38 39 10.41 42 43 44 45.46 47 48 48 50,51 52 53 54 55,56 57 58 59 80,61 62 63 64 65,66 
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Example 1 deals with compiling an RPG source program deck read 
directly from the card reader. The RPG compiler parameters (IMEM, 
OMEM, NUM) are assigned default values ty the compiler. Wher the 
CLS shown in Example 1 is used, the following occurs: 

• The compile listing is printed directly on the printer as 
specified by the 4th statement. 

• The object module is placed in a temporary library (TEMP- 
OBJ-LIB) named and described m the 5tn statement. The 
name of the library member is taken from the RPG control 
card in the absence of the OMEM parameter. 

• The 6th and 7th statements indicate that the RPG source 
program is in card format and is to be read directly from 
the card-reading device. 



The source program is inserted in the CLS deck following 
the 7th statement. 



EXAMPLE 2. CARD-TO-DISC COMFILATIOW 
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Example 2 deals with compiling an RPG source program placed in 
the jobstream and spooled lay the 30b monitor. The RPG compiler 
parameters (IMEM, OMEM, NUM) are assigned default values by the 
compiler. When the CLS shown in Example 2 is used, the following 
occurs : 

• The compile listing is printed directly on the printer as 
specified in the 4th statement. 

• The object module is placed in a temporary library (TEMP- 
OBJ-LIB) named and described in the 5th statement. The 

name of the library mcjmbers is taken from the RPG control 
card in the absence of the OMEM parameter. 

• The 6th and 7th statements specify that the source module 
is to be spooled from the .jobstream into the file called 

rpg-sourge: 



• The source program is inserted in the CSL deck following 
the 7th statement. 
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EXAMPLE 3. DISC COMPILATION USING DEFAULT VALUES 
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Example 3 deals with compiling an PPG prograjn previously stored 
on disc. The RPG compiler parameter IMEM is used to identify the 
source module to be compiled. The parameters OMEM and NUF are 
assigned default values hy the compiler. When the CLS shown in 
Example 3 is used, the following occurs: 

• The compile listing is printed directly on the printer as 
specified by the 4th statement. 

• Th^ object module is placed in a temporary library (TEMP- 
Oa>-LIB) named and described in the 5th statement. 

• The 6th statement identifies the System source library 
($SYSSRCLIB) from which the source program is read. 

• The compiler parameter IMEM is used in the 7th statement 
to identify the source module to be compiled. 

• The //EOJ c;ard concludes the compilation deck. Since the 
source program was previously stored on disc, it is not 
included in the CLS deck. 
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;example a. disc compilation usim specified parameters 
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Elxample 4 deals with compiling an RPG program previously stored 
on disc. All RPG parameters (IMEM, OMFN, NUM) are specified by 
the programmer rather than assigned default values by the 
compiler: 

• The 3rd statement specifies the number of statements in 
the source program to be compiled. 

• The 5th, 6th, 7th, and 8th statements are optional DFF 
statements used to place the RPG compiler work files on 
specific DASD volumes. If these statements are not 
included, the System assigns the volumes to be used for 
allocation. 

• The compile listing is printed directly on the printer as 
specified by the 9th statement. 

• The object module is placed in a temporary library (TEMP- 
OBJ-llB) named and desscribed in the lOth statement. 



The compiler parameter OWEM is used in the 11th state- 
ment to name the object module stored in the temporary 
library. 
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• The 12th statement identifies the System source library 
($SySSRCLIB) from which the source program is read. 

• Compiler parameter IMEM in the 13th statement identifies 
the member name of the source modtCLe to be compiled. 

• The //EOJ card concludes the compilation deck. Since the 
source program has been previously stored on disc, it 

is not included in the CIS deck. 
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f2CAMPLE 5, COMPILE, LINKEDIT, AND EXECUTE 
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Elxample 5 is a three-step job. It deals with compiling, 
1 inked it ing, and executing an RPG pro£:rani. 



The 1st through the 8th statements make up the compilation Etep. 
RPG parameters IMEM and WUM are assigned default values. CLS 
specifies the following in Example 5: 

• The compile listing is printed directly on the 'printer as 
specified by the 4th statement. 
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• The object module is placed in a temporary library (TEMP- 
OBJ-LIB) named and described in the 5th statement. 

• The object module is given the libraiy member name 
I TSTMOD in the 6th statement. 

• The 7th statement causes the source program to be spooled 
from the jobstream into the file <:»lled RPG-SOURCE. 

• The 8th statement instructs the System to skip the link- 
edit and test-execute steps if the compile step fails. 

The 9th through the 15th statements make up the linkedit step. 
They specify the following: 

• The module output (linkedited program) is to be stored 
in a temporary library (TEMP LOAD LIB) named and 
described in the 12th statement. 

• The 13th statement specifies that the ob;)ect module to be; 
linkedited is input from the temporary library allo- 
cated in the 5th statement. 

• The 14th statement gives the name of the object module 
to be read as input to the link eiitor. 

• The 15th statement instructs the System to skip the test- 
execute step if the linkedit step fails. 

The 16th throu^ the 25th statements make up the test-execute 
step and complete the job deck. They specify the following: 

• The 16th statement names the compiled and linkedited pro- 
gram to be executed. The name given is the same as that 
used in the 14th statement. 

• The filename specified on file description cards in the 
RPG source program must be used as the identificetion 
(lD=filenaTBe) on the //DEF card for object program 
execution. 

• The CLS required for program execution is inserted in the 
job deck after the 16th statement (lines 17 and 18). 

• The source program to be compiled is inserted iinmediately 
after the last Control Language Statement required by 
the test-execute step (lines 19 and 20). 

• The data to be processed by the test program is inserted 
last in the job deck (lines 22 and 23). 

• The entire deck is completed by an end-of-job (//FOJ) 
card. 
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APPMDDC G., ERROR MESSAGES 



PORMAT 



AH error messages produced on the 132-cha,racter printer are 
preceded by a four teen-character program-generated code 
consisting of a {Standard eight-character identification, a blank, 
a letter which indicates either a warning (W) or a fatal error 
(F), and four more blanks. A fatal (F) error indicates that the 
object code may not be executable; in such cases the line is 
ignored, and in the majority of cases the source deck should be 
corrected and recompiled. A warning (W) message indicates that 
the object code may produce invalid results, even thoui?'h the code 
is executable. The compiler attempts to recover from errors 
producing warning messages and continues processing, whether or 
not recovory is successful. 

likch message is printed immediately following the line on the 
source listing to which it a|jplies. The format of the printed 
messages is as follows: 

Characters Contents 

1-2 The letters RG. 

3~4 The number of the overlay in which the error 

was encountered. 

5-7 The error number within the overlay. 

8 Zero (C). (Reserved for future use.) 

9 Blank. 

10 W (warning) or F (fatal error). 
11-14 Blanks. 

15-84 Error message text. 



LIST OF MESSAGES BY OVERLAY NUMBER 



The error messages on succeeding pages are arranged according to 
the overlay area in which the corresponding error is encountered. 
Error messages do not appear for spme overlay areas because 
error-producing conditions do not arise. In the following overlay 
area list, those areas which do not produce error messages are 
indicated by an asterisk preceding the overlay number. 
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NuFbey Overlay 

* 1 Compile Executive, Program ^ . 

2 HeaSer Card Scan (Control Card) 

3 File Description Scan 

4 File Extension and Line Counter Scan 

6 Input Specifications Scan 

7 Calculation Specifications Scan 

8 Output Specifications Scan 

* 9 Table Overflow 

* 10 Input/Output Generation 

11 File Extension/Line Counter Generation 

* 12 Record Handling Generator 

13 Calculation Generator 

14 Output Generator 

15 Code Formatter 



Error Ranges 



RG02001 0-^310 
RGC3001 0-0900 
RG04001 0-0610 
RG06001 0-0910 
RG07001 0-0570 
RG0aX)1 0-0640 



RGIIOOIO-^120 

RG1 30600-1 000 
RG1 40010-01 50 
RG1 5001 0-0040 



Error mcjssages are listed sequentially "by overlay number, 
bef inning on the next page. Each successive overlay error message 
list begins a new page. Error code numbers are listed at the 
left, fori.owed by F or W (fatal eiTor or warning) snd the text of 
the error message. 



Variable fields within error messages are represented by the 
quantity of X's or N's required to satisfy the length of the 
field. ' X's represent alphanumeric fields and N's represent 
numeric fields. 

(Executlo!i-time error messages and compile-time diagnostic 
messages issued to SYSOUT ere listed and described in Ap|:>endix H, 
"Operational Environment . " ) 
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OVERLAY 2. HEADER CARP SCAN (CONTROL CARD) 

RG020010 F No source cards for RPG II program 

RG020020 W No header card. Assume default specifications 

RG0200:50 W Columns 7-9 should be blank. Assume blank 

RG020040 W Invalid object output entry in column 10. Assume 
blank 

RG020050 W Column 11 should be blank. Assume blank 
RG020060 W Columns 16-20 should be blank. Assume blank 

RG020070 W Inverted print entry in column 21 is not D,I,J or 
blank. Assume blank 

RG020080 W Columns 22-25 should be blank. Assume blank 

RGO20090 W Collating seq, entry in column 26 is not S, T or 
blank. Assume blank 

RG020100 W Columns 27-33 should be blank. Assume blank 

RG020110 W Table lookup entry in column 34 is not B or blank. 
Assume blank 

RG020120 W Columns 35-39 should be blank. Assume blank 

RG020130 W Error deleted 

RG020140 W Error deleted 

RG020150 W Invalid sign process entry in column 40. Assume 
blank 

RG020160 W Forms positioning entry in column 41 is not 1 or 
blank. Assume blank 

RG020170 W Column 42 should be blank. Assume blank 

RG020ia0 W File translation entry in column 43 is not F or 
blank. Assume blank 

RGO2O190 W Columns 44-46 should be blank. Assume blank 

RG020200 W Suppress skip to channel 1 (column 47) is not S or 
blank. Assume blank 

RG020210 W Columns 4£!-51 should l>e blank. Assume blank 
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RG020220 W Debug entry in column 15 is not 1 or blank. Assume 
blank 

RGO2O23O W Invalid core size needed to execute entry in cols 
12"-14- Assume blank 

RG020240 W Error deleted 

RGO2025O W Error deleted 

RG020260 W Invalid program Identification entry in columns 
75-80. Assume RPGOBJ 

RGO2O27O W Cross reference list entry in col 52 is not X or 
blank. Assume blank 

RG020280 W Carriage control tjrpe entry in col 53 is not L or 
blank. Assume blank 

RGO2029O W Ignore arithmetic overflow (col 55) is not T or 
blank. Assume blank 

RGO2O3OO W Columns 56-73 sMould be blank. Assume blank 

RGO2O3IO W Sequence check entry in column 54 is not N or 
blank. Assume blank 
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OVERLAY 3. EILE DESCRIPTION SCAN 



RG030010 E Too many file description specs, lines used. 
Ignore extra specs. 

RG030020 E Eilename in columns 7-14 is missinp or invalid 

RGO3OO3O E Eilename lias already teen used. Ignore current 
definition 

RGO30O4O E Device name in columns 40-46 is missing or invalid. 
Assume disc 

RGO3OO5O W Input card file may not be spooled if block and 
record lengths not 80 

RGO3GO6O VJ Dual printer carriage is not supported. Assume 
device is printer 

RGO3OO7O E Eile type in column 15 is not I, Cf, U, C or D. 
Assume default for device 

RG0300a) E Eile type in col 15 invalid for device. Assume type 
default for device 

RGO3OO9O W Invalid file designation (col 16). Assume desig. 
default for file type 

RGO3OIOO W File desig. invalid for device. Assume desig. 
default for file type 

HGO3OIIO W A primary file has already been designated. Assume 
secondary file 

RGO3OI2O E A record address file has already been defined. 
Ignore current file 

RGO3OI3O E More than 15 demand and/or chained files defined. 
Ignore those over 15 

RGO3OI4O W Processing mode entry in column 28 is not L, R or 
blank. Assume blank 

RGO3OI5O W Processing modes L, R valid for disc device only. 
Assume col 28 blank 

RGp30160 W Random processing mode invalid for demand file. 
' Assume col 28 blank 

RGO3OI7O W R or L processing mode invalid for file desig. or 
device. Assume blank 
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RG030180 W Limits processing mode invalid for chained file. 
Assume random mode 

RG030190 W Blank processinf; mode invalid for chained file. 
Assume random, mode 

RG030200 W End-of-file code in col 17 not E or blank. Assume 
E if valid for file 

RG030210 W End~of-file code in column 17 is not E or blank. 
Assume blank 

RG030220 W E end-of-file code invalid for file type and proc. 
mode. Assume blank 

HGO3023O W Seauence entry is not A, D or blank. Assume seauence 
of previous file 

RGO3024O W A or D sequence invalid for file type or desirniation. 
Assume blank 

RGO3025O W Lenfith of record missing or invalid. Assume default 
length for device 

RG030260 W Length of record invalid for device. Assume default 
length for device 

RGO3027O W Invalid length of block entry. Assume equal to 
length of record 

I RG030280 E Length of block should be a multiple of length of 
record + 4 for device 

RGO3029O W Elock length should equal record length for this 
device. Assume equal 

RG0303CX3 W Invalid record address type in col 31- Assume A if 
mode=L, else blank 

RGO303IO W K entry in column 31 for record address type invalid. 
Assume typ€5=A 

RGO30320 W A record address type invalid for nonr-disc device. 
Assume blank 

RGO3033O W Record address type invalid for file type and desig. 
Assume blank 

RGO3034O W Record address type invalid for limits processing 
mode. Assume type=A 

RGO3O35O W Invalid file organization entry in column 32. Assume 
blank 
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RG030360 W Indexed file org. invalid for non-disc device. 
Assume column 32 blank 

RG030370 W f^||*^/^^^^ingM<i for a non-indexed file. Assume 

HG030380 P ADDROUT me must be an input record address file. 
Assume col 32 blank 

RGG3O390 W File org., entry Invalid for type and desig. or 
device. Assume blank 

RG030400 W File org. entry must be blank or 1-9 for non-disc 
device. Assume blank 

RG030410 F File org. entry invalid for proc. mode or RA type 
file. Assume blank ^^ 

RG030420 F Starting loc. of key field (cols 35-38) missing or 
invalid. Assume 1 

RG030430 F Starting location of key field is or exceeds record 
length. Assume 1 

RG030440 W 5SBl5g-|,?A^fielMcols 2^30) invalid for an 

RG030450 W J^^g-f ^f-ord^in^ols 24-27 must be 4 for an 

RG030460 F ^ns*h^J^ke| or RA field is ftissing, invalid or over 

RG030470 F Length of key or RA field plus start loc, of key 
exceeds record length 

RG030480 W Columns 29-30 should be blank with these specifica- 
tions. Assume blank 

RG030490 W Columns 35-38 should be blank with these specifica- 
tions. A,ssume blank 

RGO305OO W Overflow indicator should be blank for non-printer 
file. Assume blank 

RGO3O5IO W Invalid overflow indicator entry in columns 33-34. 
AssiMe blank -^v->-r. 

RGO3O52O W Overflow indicator in columns 33-34 already defined. 
Assume blank 

RGO3O53O W Extension code in column 39 is invalid or E for 
print file. Assume L 
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RGO3054O W Extension code in column 39 is not E for taljle or RA 
file. Assume E 

RGO3O55C W Extension code in column 39 invalid for device or 
desig. Assume blank 

RGO3056O W Hi-level directory, valid for random indexed file 
only. Assume blank 

RGO3O57O W Tape labels entry (col 53) invalid or invalid for 
device. Assume blank 

RGO3O5a0 W Columns 54-59 should be blank. Assume blank 

RGO3O59O F Error deleted 

RGO3O6OO W Tape labels entry sbould be blank for special device. 
Assume blank 

RGO3O6IO F Error deleted 

RGO3O62O W Invalid index buffer size entry in columns 60-65. 
Assume blank 

RGO3O63O W Inv. index buf. size value. Assume blank if random, 
sys default if seq. 

RGO3O64O W File addition entry in column 66 is not A or blank. 
Assume blank 

RGO3O65O W File addition should be blank for non-disc device. 
Assume blank 

RGO3O66O W File addition should be blank for relative, RA or T 
file. Assume blank 

RGO3O67O W Column 67 should be blank. Assume blank 

RGO3O68O W Tape rewind entry (col 70) invalid or invalid for 
device. Assume blank 

RG030690 W Invalid file condition entry in columns 71-72. 
AssiMe blank 

RGO3O7OO W File condition entry in cols 71-72 Invalid for file 
type. Assume blank 

RGO3071O W Columns 73-74 should be blank. Assume blank 

IRGO3072O W File format entry in column 19 missing or Invalid. 
Assume F 
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RGO3073O W File forraat entry in column 19 invalid for device. 
Assume F 

RGO3O74O W Columns 68-69 should be blank. Assume blank 

RGO3075O W No primary file specified. Assui^ first secondary 
file is primary 

RGO3076O F No file description specifications 

RGO3O77O W Error deleted 

RG030780 F Error deleted 

RGO3O79O F Block length is more than 255 times record length. 
Assume block=record 

I RGO3O8OO W Error deleted 

RGO3O8IO W High-level directory size entry in cols 47-52 not 
1-9999. Assume blank 

RG030820 W Index buffer size (cols 60-65) missing. Assume 
SYSGEN default value 

RG030830 F RA-processed file is not compatible with RA file 
(keys vs. red. nos.) 

RGO3O84O F More than one record address-processed file has been 
defined 

RGO3O85O F RA file is not compatible with RA-processed file 
(keys vs. red. nos.) 

RGO3OS6O F Key length of RA file does not equal key length of 
RA-processed file 

RGO3O87O F Record address-processed file defined but no RA file 
defined 

RG0308aO F Record address file defined but no RA-processed file 
defined 

RGO3O89O W Labels entry in column 53 should be S for disc file. 
Assume S 

RGO309OO W I record address type (col 31) invalid for file 
device. Assume blank 
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OVERLAY 4.. PIIE EXTENSION AND LINE COUNTER SCAN 

RGC40010 W Coluims 7~10 should be blank. Assume blank 

RGC40020 F Invalid FROM filename. Assume T file if cols 27-57 
not blank; else RA 

RG040030 F FROM filename undefined. Assume T file if cols 27-57 
not blank 

RG040040 F FROM file neither RA nor T file. Assume T if columns 
27-57 not blank 

RGO4OO5O v/ 'E' not specified on file description specifications 
for :FR0M file 

RGO4OO6O p An RA file has already been described for this 
program 

RGC40070 p Filename of RA-process<3d file is missing or invalid 

RGC40080 p Filename of RA-i3rocessed file has not been defined by 
file specs. 

FK5040090 p RA-processed file is not a primary, secondary or 
demand file 

RGO4OIOO p RA-processed tile is not an input or update file 

RGO4OIIO P RA file is being used to process more than one file 

RGO4OI2O w Columns 27-57 should be blank for an RA file. Assume 
blank 

IRGO4OI3O w TO file record length is not long engough for T/A 
items. Ignore TO file 

RG040140 V.' Invalid TO filename for table or array. Assume blank 

RGO4OI5O w TO filename for table or array is undefined. Assume 
blank 

RG040160 w TO file for table or array is not an output file. 
Ignore TO filename 

RGC40170 p T/A name missirff or invalid. Assume table if name or 
alt. name=TABXXX 

RG040180 F More than 60 tables and arrays defined. I/?rnore 
those over 60 

RGO4O19O P Invalid entry for number of items in eateh record, 
cols 33-35. Assume 1 
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flG040200 W No. of Items/red entry missing for pre-exec or comp 
time T/A. Assume 1 

i?GC40210 P Invalid entry for no, of items per T/A. Assume 
equals no. items/red, 

RGC40220 W No. of items per T/A less than no. of items per 
record. Ajssume equal 

RG040230 P Invalid entry for length of item in cols 40-42 or 
52-54.. Assume 1 

|RG040240 P PROM or compile file record length Is not long 
I enough for T/A items 

RGC40250 W Packed/binary entry is not blank for compile time 
T/A, Assume blank 

RG04026O W Invalid packed or binary field entry in col 43 or 55. 
Assume blank 

RG040270 W Unpacked length of binary item cannot be less than 4. 
Assume length 5 

RGC40280 W Unpacked length of binary item is not 4, 5, 9 or 10. 
Assume length 10 

RG040290 W Invalid decimal positions entry. Assume if P, B or 
length LE 15 

RGC40300 W Decimal, pos. entry not numeric for packed or binary 
item. Assume C i— j 

RG040310 F Length of item is greater than 255. Assume file 
record length cr 255 

RGC40320 F Length of numeric item is greater than 15. Assume 15 

RGO4O33O W Invalid sequence entry in column 45 or 47. Assume 
blank 

I RGO4O34O F Duplicate table/array name. No storage assigned 

RGC4O35O F Table or array is too large. Allov 256 bytes for 
table or array 

RGO4036O F Data area used up. Table/array storage allocation 
will be in error 

RGO4O37O w No extension specifications on card 
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RG040380 J Specifications missing for first table/array. Ignore 
alt. T/A specs. 

RGO4O39O F Alt. array cannot "be specified for exec, time array. 
Ignore alx. array 

RGO404OO F Alternate table or array name is missing or invalid. 

RGO404IO F First tEible/array and alternate table/array not both 
tables or arrays 

RGO4042O F More than 60 tables and arrays defined. Ignore those 
over 60 

I FG04043C W No extension specifications f ouM for file XXXXXXXX 

RG040440 W No line counter specifications on card 

RGO4O45O F Filename in columns 7-14 is missing or invalid 

RG040460 F Filename in columns 7-14 lias not been defined by file 
descr. ^pecs, 

RGO4047O W '1' not specified on file description specifications 
for this file 

RGO4O4a0 W Line counter specifications have already been proces- 
sed for this file 

I RGO4049O F File is not a print file 
RGO405OO W Line number entry is not a valid number or blank 

RGO405IO W Line number entry is not within the range 1-255. 
Assume 255 

RGO4052O W The same line number is assigned to more than one 
channel 

RGO4053O W Channel number entry is not 01-12, <9L or FL 

RGO4054O W More than one line number is assigned to channel 01, 
12 (=01.) or FL 

RGO4055O W Overflow line number is greater than form length. 
AssiMe equal 

RGO4O560 W Chan 1 line is not less than overflow line. Assume 6 
if OL GT 6; else 1 

I RGO4O57O W No line counter specifications found for file XXXXXXXX 
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KG040580 W 
RG040590 W 

RGO4O6OO F 
RGO4O6IO W 
RG040620 W 



Decimal positions entry is greater than item lenrth. 
Assume equal 

Non-blank entries follow a blanlc line number. Such 
entries ignored. (KOTE: A blank line number will be 
allowed in columns 15-17 if columns 18-19 are blank 
or IL and column 53 of the control card is L) 

Too many table and array names used. No more storape 
assigned 

Columns 18-19 should be FI^ when L spec'd in Col. 53 
of the control card 

Blank line number for FL,, dl. and/ or 01 channel. 
Assume default values 
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OVEKLAY 6. INPUT SPECI II CATIONS SPAN 



RG06G010 T Length of control level differs from previous def. 
Assume prev. def. 

RG060020 F Invalid filename entry in columns 7-14. Assume 
previous filename 

RG06CX)30 F i'ilename has not "been defined by file specs. Assume 
previous filename 

RG060040 P File is not an input file. Assume previous filename 

RG060050 F Filename has already "been used on input specs. 
Ir:nore previous use 

RG060060 I' Filename missinr from first input spec. Assume input 
sequential file 

RG060070 F No. of match fields on record less than previous def. 
Assume 1st def. 

RG060080 W Field definitions missin,<^ for -orevious record 

RG060090 F Invalid filename entry in columns 7-14. Assume 
previous filename 

RG060100 F AND/OR line illegal following look-ahead record 
identification 

RG060110 F AN.D/OR line illegal following trailer record 
identifica,tion 

RG060120 W AND/OR line does not follow a record identification 
line 

RC060130 W AND line may not have a record indicator in cols 19- 
20. Ignore ind. 

RG060140 W Stacker select in col 42 should he hlank for AND 
line. Assume "blank 

RG060150 W No. and option (cols 17-18) should he blank for AND 
line- Assume blank 

RG060160 V/ Numeric sequence no. invalid for chained file. 
Assume alpha sequence 

RG060170 W Sequence numbers (cols, 15-16) not in ascending 
order. Assume they are 
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RG060180 W First numeric seq. entry for file is not 01. Accept 
numlDer specified 

I RG060190 W Number entry in col 17 should be 1 or N for numeric 
sequence. Assume H 

RG06O200 W Option in column 18 is not or blank. Assume for 
numeric sequence 

RG060210 W Invalid sequence entry in columns 15^16. Assume 
alphabetic 

RG060220 F Alpha sequence in cols 15-16 invalid after numeric 
seq. Assume numeric 

RG060230 W Number, option (cols 17-18) not blank for alpha 
sequence. Assume blank 

RG060240 W Indicator in cols 19-20 is not a valid record 
indicator. Assume valid 

RG060250 F Invalid record indicator in columns 19-20. Ignore 
indicator 

RG060260 W Spread card header with numeric sequence must have 
N in column 17 

RG060270 ¥ Look-ahead specified vd.th spread card trailer. 
Assume valid 

RG060280 F More than one trailer specified for spread card. 
Ignore all but first 

RG060290 W Invalid specs, made for TR or look-ahead. Assume 
invalid cols blank 

RG060300 W Cols 43-70 should be blank for record identifying 
line. Assume blank 

RG06O310 F More than one set of look-ahead fields defined for 
file. Use first set 

RG060320 F look-ahead fields invalid for chained or demand file 

RCX)60330 W Look-ahead fields invalid with numeric sequence. 
Ignore look-ahead 

RG060340 F Position entry in columns 21-24, 28-31 or 35-38 
missing or invalid 

RG060350 F Position entry in cols 21-24, 28-31 or 35-38 Is not 
within record size 
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RG060360 W 'NOT' entry in coliMin 25, 32 or 39 is not N or 
blank* Aasrune N 

RG060370 W C/Z/D entry in column 26, 33 or 40 is not C, Z or 
D. Ajssume C 

RGO6O380 W AND/OR line follows line without record codes. 
Assume new record spec. 

RG060390 W Stacker select entry in col 42 invalid for file 
device. Assume blank 

RGOaHOO W Packed or binary field entry in col 43 not P, B or 
blank,, Assume blank 

RG060410 F Beginning field loc. entry in cols 44-47 missing 
or invalid. Assume 1 

RG060420 F Ending field location entry in columns 48-51 missing 
or invalid 

RG060430 F Ending field location in columns 48-51 is greater 
than record length 

RG060440 F Beginning field location is greater than ending field 
locatiton 

RG060450 F Invalid decimal positions entry in col 52. Assume 
zero dec. positions 

RG060460 F pec. pos. entry exceeds field length. Assume field 
lengtn=dec. pes. 

RG060470 F Binary input field length is not 2 or 4. Assume 4 

RG060480 F Numeric field length is greater than 15. Assume 15 

RG060490 F Alphanumeric field length is greater than 255. 
Assume 255 

RG060500 F Invalid field name in columns 53-58 
RG060510 F Field name in columns 5:5-58 is missing 

RG060520 F Table r^me may not be used as field name in columns 
53-58 

RG06053C F Date field is being redefined or page is being 
redefined illegally 

RG060540 F look-ahead field is being redefined 

RG060550 W Dec, pos. for array item differs from def , on E spec. 
Assumie E def. 
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RG060560 F Array field length is not a multiple of item length 
on E spec. 

RG060570 F Binary input specified for array items more than 10 
digits long 

RG06O580 W Number of array items on input record exceeds number 
of items in array 

RG060590 W Alpha field specified as packed or binary. Ignore 
P or B entry 

R00606CX) F Invalid aiTay index. Ignore index 

I RG060610 W Error deleted 

RG060620 P Array index is gr^iter than the number of items in 
the array 

RG060630 P Array index name has not been previously defined. 
Ignore index 

RG060640 F Array index is not a numeric field with zero dec. 
pos, I^ore index 

RG060650 W Field name has an index but is not an array name. 
Ignore index 

RG060660 W Invalid field record relation indicator (cols 63-64). 
Ignore indicator 

RGG60670 W Invalid control level indicator in columns 59-60. 
Ignore indicator 

RG060^)80 F Data area used up. Storage allocation will be in 
error 

RG060690 W Control or match field specified both as alpha and 
num. Assume numeric 

RG060700 F Split control fields must be defined on consecutive 
lines 

RG060710 W Fields without record relation indicators should 
precede those with 

RG060720 W Record rel. ind, used with match or control field not 
prev, defined 

RG060730 F Control field length is greater than 255 

I RG060740 F Match field entry in columns 61-62 is not M1-M9 
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RG060750 F No. of match fields on record exceeds previous def . 
Assume first def. 

RG06O760 F Match field level has already been used for a field 
in this record 

RG060770 F Match field length differs from previous def. Assume 
previous def. 

RG060780 F Total match field length for record is greater than 
255 

RGOe0790 F Match or control fields are valid only for primary or 
secondary files 

RG060800 F Match or control level invalid for look-ahead or 
trailer field 

RG060810 F Match or control field carmot he an array item 

RG060820 W Invalid field indicator in cols 65-66, 67-68 or 
69-70. Ignore indicator 

RG060830 F Field size or type differs from previous definition. 
Assume prev. def. 

RG060840 F No input specifications found for file XXXXXXXX 

RG060850 F Files with matching records not all either ascending 
or desc. sequence 

RG060860 W Record indicator in colionns 19-20 is never referenced 

RG06(^70 W Field record relation indicator in columns 63-64 is 
never defined 

RG060880 W PLUS field indicator in columns 65-66 is never 
referenced 

RG060890 W MINUS field indicator in columns 67-68 is never 
referenced 

RG060900 W Zero or blank field indicator in columns 69-70 is 
never referenced 

RG060910 W PLUS and MINUS field indicators invalid with an 
alphanumeric field 
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OVERLAY 7. f^ATJ^TT ATION .SPRrTPTrtT TnMQ oz-^f, 

'^°°'° " iZ^it r^lr"- l^^-l - -l"""- 7^. /*-".» latest 

•^"""^ ^ SSSpflS'' ^^^^ -^ -^-<=i'«l PO-ltlons »issi^ or 
RG070030 F AB^OR line cut of oxxJer or Invalid. Ignore AN/OR 
RG0,0040 P Morej^ T^^OR lines used toother. Ignore entlr. 

RG070060 F Operation not recognized 

RG07007C w W_entr.^i^„ column 9, 12 or 15 is not « or 

R0070080F In^id operation indicator. Ignore entire Indicator 
H5070090 W I^dicator^issing for 'NOT' entty in colu,nn 9. 12 or 

RG070100 F Invalid resulting indicator. Ignore indicator group 

R0070110 F Invalid factor 1 entry in columns 18-27 

BOOTOiaO F Invalid factor 2 entry in columns 33-42 

RG07O130 F Invalid filename entry for factor 2 (columns 33-42) 

RG070140 P Filename m factor 2 has not teen defined by file 
aescription si)ecs, ^ -ij-xe 

RG070150 P Invalid index in factor 1 (coluims 18-27) 

RG070160 F Invalid index in factor 2 (coluims 33-42) 

RG070170 F Invalid result field entry in columns 43-48 

RG070180 F Invalid result field length entry in columis 49-51 

RG070190 F Invalid result field length entry in columns 49-51 

RG070200 F Invalid deciiaal positions entry in column 52 
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RG070210 W Result field length missing but dec. pos. specified. 
Ignore dec. pos. 

RG070220 V Half-adiust entry in colunin 53 is not H or blank. 
Assume H 

RG07O25O W Field attribute not the same as in previous def . 
' v-- yg^ previous der. 

RG07O24O W Result field has an index but is not an array name. 
^ ' Ignore index 

RG070250 W Invalid index in result field (columns 43-48) 
RG070260 F Result field is missing (columns 43-48) 

RG070270 W Data area used up. Storage allocation will be in 
error 

RG070280 F Factor 1 is missing (columns 18-27) 

RGO7O290 F Factor 2 is missing (columns 33-42) 

RG070300 W A resulting indicator must be specified for this 
operation 

RG070310 V Missing AN/OR line. Ignore entire operation 
indicator group 

RG070320 W Missing ENDSR statement. Assume EKDSR 

RGO7O330 W operation indicators missing on AN/OR line 

RG07034O W Indicators in cols 9-17 not allowed for this opera- 
" '^ tion. Assume blank 

RG070350 W Indicators in cols 54-59 not allowed for this opera- 
kkjuikj:,:^ tion. Assume blank 

RG070360 W Factor 1 (cols 18-27) should be blank for this 
KWfv>:?o^ operation. Assume blank 

RG070570 W Factor 2 (cols 33-42) should be blank for this 
KOU/u:>/vj w ^^g^^^ion^ Assume blank 

RG070380 W Result field should be blank for this operation. 

Assime blank 
RG070390 F Field used as result field is a non-alterable field. 

Ignore spec. 

RG070400 W l-age field used as result has already l«en redefined. 
Use prev. def. 
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RG070410 P Name already has another use 

RG070420 F GOTO operation may not branch into or out of a 
subroutine 

RGO7043O P GOTO operation may not branch out of one subroutine 
into another 

RGO7O44O F Name already has another use 

I RGO7045O P Name referenced by EXSR is not a subroutine name 

RG0704e50 P Name referenced by GOTO is not a TAG name 

RG07047C P A subroutine may not call itself 

RG0704?X) W BEGSR statement missing. Assume BEGSR 

RGO7O49O P BEGSR out of sequence. Ignore BEGSR line 

RGO7O5OO P Decimal pos. entry is greater than field length. 
Assume zero dec. pos. 

RGO7O5IO W Pleld length and dec. pos. (cols 49-52) should be 
blank. Assume blank 

RGO7O52O W Decimal positions entry (column 52) shoiild be blank. 
Assume blank 

RGO7O53O W Half-adjust entry (column 53) should be blank. 
Assume blank 

RGO7O54O W BEGSR statement should have SR in columns 7-8. 
Assume SR 

I RGO7O55O P Pield length is over 255 for alphanumeric field or 
over 15 for nimeric 

RGO7056O P TAG or subroutine name XXXXXX is undefined. 
Referenced KNN time(s) 

RGO7O57O W TAG or subroutine name XXXXXX has not been 
referenced 
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OVERLAY 8. OUTIUT SPECIFICATIONS SCAN 

RG080000 r AND/OR line out of order. Ignore all statements 
until next filename 

I RG080010 F Filename for output not on first output-format 
• specifications line 

RG080020 W No fields described for previous record 
RG080030 W Output-format specifications missing 

RG0e0040 W IP indicator should be used with external indicators 
only 

RGO8OO5O W One or more output files have been defined but not 
referenced 

RG080060 W Forms positioning is specified on control card; 1P 
indicator not used 

RG0800TO W Columns 16-22 should be blank for a field descrip- 
tion. Assume blank 

RG080080 F Invalid filename in columns 7-14 

RGO8OO9O F Filename has not been defined by file description 
specifications 

RG080100 F File is not an output, update, combined or input 
'ADD' file 

RG080110 F T or E in column 15 invalid for combined or 
non-chained update file 

RG080120 W Cols 32-70 should be blank for record identifying 
si)ec. Assume blank 

RGO8OI3O W Type of record in column 15 is not H, D, T, E or 
blank. Assume H 

I RG080140 W Output to input 'ADD' file requires 'ADD' in cols. 
' 16-18. Assume 'ADD' 

RG0e0l50 W 'ADD' invalid for device or file type. Assume 
columns 16-18 blank 

RG080160 W Error deleted 

RGOeOITC W Stacker/overflow entry (col 16) invalid for file 
device., Assume blank 
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HG080180 W Stacker/overflow (col 16) not valid stacker number 
or F, Assume blank 

RG080190 W Space/skip entries in cds 17-22 invalid for file 
device. Assume blank 

RG080200 W Invalid skip entry in columns 19-22, Assume blank 

RG080210 F More than 20 AMD/OR lines used for this record. 
Ignore those over 20 

RG080220 W Invalid indicator in cols 24-25, 27-28 or 30-31. 
Assume blank 

RG080230 W Overflow indicator not assigned to file in file 
descr. Assume valid 

RG080240 W 'WOT' entry in column 23, 26 or 29 is not N or 
blank. Assume N 

RG080250 P Overflow indicator cannot condition EXCPT record. 
Ignore spec, line 

RG080260 F Fetch overflow Invalid with overflow indicator. 
Ignore fetch overflow 

RG0^270 F Overflow ind. used is not the same one assigned this 
file. Ignore spec 

I RG0802e0 W Fetch overflow invalid with IP indicator. Ignore 
fetch overflow 

RG080290 W 1P indicator cannot be used with combined file 

R0080300 F IP indicator cannot condition total record 

RG080310 F 1P indicator cannot condition EXCPT record 
RG080320 W Indicators missing on AND line 

RG080330 W Space/skip entries should be blank on AND line. 
Assume blank 

RG080340 W Indicators missing oti OR line 

I RG080350 W 'ADD' in cols 16-18 illegal on OR line. Assume 
columns 16-18 blank 

RG080360 W Invalid space entry in columns 17-18, Assume blank 

RG080370 W Packed/binary field entry in col 44 not P,B,2,4, or 
blank. Assume blank 
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RG080380 W Blank after entry in column 39 not B or blank. 
Assume blank 

RG080390 W Cols 45-70 can only be '$', '*' or blank with edit 
code. Assume blank 

RG080400 W Packed/binary entry should be blank for an edited 
field. Assume blank 

RG080410 W Colimns 45-70 must be blank for edit code X, Y or Z. 
Assume blank 

RG080420 F Invalid field name in columns 32-37 

RG080430 F Field name in columns 32-37 has not been previously 
defined 

RG080440 F Invalid index in field name (columns 32-37) 

I RG080450 W Page field name has already been used for another 
' file. I^ore spec 

RG080460 W Cols after end apostrophe in cols 45-70 should be 
blank. Assume blank 

|RG08047O W Punch field follows print only field (* in col 40). 
Assume print only 

RG080480 F Invalid edit word in columns 45-70. Ignore specifi- 
cations line 

RG080490 F End apostrophe missing for constant in columns 45-70. 
Assume jjresent 

RG080500 F Leading apostrophe missing for constant in cols 45- 
70. AsEJume present 

RG080510 W Invalid edit code in column 38. Assume blank 

RG0eO520 F Inva3.id entry for ending position in columns 40-43. 
Assume 1 

RG080530 F End position entry exceeds record length. Assume 
equals record l^igth 

RG080540 F Print oiay field (* in col 40) invalid for non-MFCU 
file. Ignore spec 

RG080550 W Indicators cannot be used to condition ♦PLACE. 
Ignore indicator(s) 

RG080560 F End position for *PLACE is not at least twice 
previous hijfirh position 



APPMDIX G PAGE 25 
2202,003-0003 r, 3/30/73 



RG080570 F *niACE or *PRIKT must loe preceded ty a field 
description 

RG080580 W Cols 38-39 and 44-74 should be blank for »PLACE, 
♦PRINT. Assume blank 

I RCI080590 W Ending position in cols 40-43 should be blank for 
' *PRINT. Assume blank 

RG080600 F *PRIWT specification invalid after * has been used 
in col 40. Igrore 

RG080610 F *PRINT specification invalid for non^MFCU file. 
Ignore specification 

R0080620 F Field name (cols 32-37) and constant (cols 45-70) 
both blank 

I RC3080630 W Packed or binary output invalid for file device. 
Assume col 44 blank 

RG080640 W Packed or binary entry should be blank for constant. 
Assume blank 
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OVERLAY 11. FILE^ EXTENSION/LINE OOUMTER GENERATION 



Those error messjages which are followed hy a printed card image 
and an asterisk (*) showing the error location are indicated by 
an asterisk, in parentheses, following the message. 

RG1 10010 F Invalid numeric value in compile time table or array. 
Card niMber NM of XXXXXX (*1 

RG1 10020 F Compile time table or ai-ray item is out of sequence. 
Card number NM of XXXXXX (») 

RG1 10030 F Too much data given for compile time table or array. 
Card number NM of XXXXXX (*) 

RGIIOO4O W Compile time table or aa-ray data missing. Items set 
to zeros or blanks in X5CX)0CX 

RGIIOO5O W Compile time table or an~ay short. Empty items set 
to zeros or blanks in XXXXXX 

RG110060 W Invalid char, in file tirans. or alt, seq. record. 
Ignore rest of red. (♦) 

RGIIOO7O W Char, already referenced in trans, or alt. seq. 
table,. Ignore 2nd ref (*) 

RG1 10080 W File translation filename XXXXXXXX invalid. Ignore 
1 ranslation record 

RGIIOO9O W File translation records for XXXXXXXX not together. 
Ignore later red. 

RG110100 W Cols 1-8 of alt. seq. record are XXXXXXXX, not 
'ALTSmy^y ignore red 

RGIIOtIO W File translation table missing 

RG110120 W Alternate collating sequence specifications misssing 
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OVERLAY 1-5. CALCULATION GENERATOR 



RG1 30600 W Operation indicator XX is never defined 

RG130610 F Factor 2 is not a table or array for a LOKUP command 

RG1 30620 F Result field length specified in columns 49-51 for 
blank result field 

RG130630 F Factor 1 and/or 2 should be an array if result is a 
non-indexed array 

RG130640 F Factor 1 is not a valid type of field for this 
operation 

HG130650 F Factor 2 is not a valid type of field for this 
operation 

HG1 30660 F Result field is not a valid type of field for this 
operation 

RG1 30670 F Array index is not a numeric field or literal with 
zero dec. positions 

RG130680 F Factor 1 and/or factor 1 index has not been defined 

RG1306O0 F Factor 2 and/or factor 2 index has not been defined 

RG130700 F Result^field and/or result field index has not been 

RG130710 F Result field must be an array if factor 1 or 2 is a 
non-indexed array • ux .- j.b a 

RG1 30720 W Resulting indicator XX is never referenced 

RG1 30730 W Result field size may be too small to contain the 
operation result 

RG130740 F Invalid bit specifications for £ITON, BITOF or 
iiiblJB operation 

RG130750 F Literal index is greater than the number of items in 

RG1 30760 W Result field size may be too small to contain the 
operation result 

RG1 30770 F MVR operation does not follow a DIV operation 
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RG130780 F Factor 2 must be an array name for a XFOOT operation 

RG1 30790 F Factor 1 and factor 2 must Ids iDoth alphanumeric or 
numeric for compare 

I RG1 30800 F Record length of file used for debug must be 34 or 
I greater 

RG1 30810 W Both high and low indicators may not be used with 
LOKUP. Ignore low 

RG1 30820 F Unsequenced table or array may not be searched for 
hi or lo condition 

RG130830 F LOKUP may only be used with one array at a time. 
Ignore lOKUP 

RG1 30840 W Search table longer tlmn related table. Search ends 
with shorter one 

RG1 30850 F Search word is no t the same size as table/array 
items . Ignore lOKUP 

RG1 30860 W Columns 54-57 should be blank for READ operation. 
Assume blank 

RG1^0870 ¥ Indicator should be specified in columns 58-59 for 
end-of-f ile on read 

RG1 30880 W Columns 56-59 should be l>lank for CHAIN operation. 
Assume blank 

RG1 30890 W Indicator should be specified in columns 54-55 for 
unsuccessful chain 

I RG1 30900 F File used with FCff?CE is not input, update, or com- 
1 bined; primary or sec. 

RGI3O91O F File referenced by READ comnand is not a denand file 

RG1^)920 F File referenced by CHAIN command is not a chained 
file 

RGI3093O F Key in factor 1 is not same length or type as key 
field of chain file 

RGI3O94O F File used with DEBUG ope:ration is not an output file 

RG1 30950 F File used with DEBUG operation may not be a chained 
file 

RGI3O96O F More i;han one output file specified for DEBUG 
operation 
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RG1 30970 P File used with DSPLY coBiinand is not a display file 

RG130980 F Either factor 1 or the result field must be specified 
for DSPLY 

RGI3099O F Factor 2 or result field is invalid for a bit 
operation 

RGT31000 W Field or literal to be displayed is longer than 100 
chars. Display 100 
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OVERLAY 14. OUTPUT GENERATOR 



RG1 40010 F Field mme has not been derfined or is used as another 
kind of name 

RG1 40020 F Array index is not a numeric field. Ignore 
specifi(3ations line 

RG1 40030 W Packed or "binary, entry should Ise blank for alpha 
field. Assiime clank 

RG140040 W Edit wo:rd in cols 45-70 should he hlank for alpM 
field. Assume hlank 

RG140050 W Edit code in column 38 should he hlank for alpha 
field. Assume hlank 

RG140060 F Invalid field length for Y edit code. Ignore 
specifi^sations line 

RG1 40070 F No. of :repl8ceahle characters in edit word incori-ect 
for field length 

RG1 40080 F Field njame has an index hut is not an array. Ignore 
spec, line 

RG1 40090 F Index h^ more than zero decimal positions. Ignore 
spec, line 

RG1 40100 F Index cannot be an army name. Ignore specifications 
line 

RG140110 F Size of field exceeds ending position or record 
length. Ignore spec. 

RG140120 W Indicator used to condition record has not been 
previously defined 

RG14O130 W Blank after entry invalid for non-alterable field. 
Assume col 39 blank 

RG140140 W Indicator used to condition field has not been 
previously defined 

RG140150 F Literal index is too large for the array. Ignore 
specifications line 
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OVERLAY 15. CODE K)RMATTER 



RG1 50010 W Page no. and/or line no. entry in cols 1-5 invalid 
or out of sequence 

RG1 50020 P Type of form entry in col 6 is invalid or out of 
order. Ignore line 

RG1 50030 F Too many external references used in program 

RG1 50040 F Generated o^bject program is too large for core 
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APPErmX H. OPERATIONAL ENVIRONMENT 



SOFTWARE 



Ttie RPG II compiler runs under the Memorex Operatins' Fystein 
(MRX/OS) using block input/output, and requires the date and time 
functions. A relocatable object laodule Is produced, ready for the 
linkage editor. All subroutines required by the generated vropx^m 
are automatically called in by external references (EXTFNS). 

The generated RPG II program runs under MRX/OS using logical 
input/output. It requires the DATE and user switch functions, and 
the commercial instructions set. No SYSGEN parameters are 
required. 

RPG II user switches U1-U8 are external switches which are 
initially set by a //SET SWITCH^ Control Language Statement card 
and which correspond to the eight CLS switches. If U1-U8 are 
reset in a job step, the action is passed on to the next job 
step. 

To activate the RPG II compiler, all the operator need do is 
arrange the source card deck in the proper order (see Figure 1-2) 
and place the cards in the card reader; processing from that 
point on is automatic. 



COMPILE-TIWF ERROR ME.SSAQES WRITTEN TO SYSOIIT 

Two com-Dile-time messages may be written to SYSOUT. The first of 
these messages is issued by the compiler when it encounters a 
syntax error in the //PAR card. Its format is: 

»»♦* RPG PARAMETER CARD SYNTAX ERROR **** CARD IS 

The message is immediately followed by the card image. When this 
type of error occurs, the entire card is invalidated, the job is 
cancelled, and the program automatically halts. Compilation can 
be resumed only after the //PAR card has been corrected and the 
job resubmitted. 

The other message is written to SYSOUT if the user partition size 
is insufficient to compile the program. Its format is: 

POOLSIZ ALLOCATION LEAVES INSUFFICIENT^MINIMUM 
BUFFER/TABLE SPACFr-TO CORRECT SET P00LSIZ=180 IN 
COMPniR LINK-EDIT STEP 
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Ihis nessare also halts the prof;rara automatically. The -oropTamTiier 
must then reduce the poolsize to 180 and resubmit the job. If the 
compiler continues to issue the same messai^^e, the •Dropram 
requires a larger user partition. The minimum' System -Dartition 
size acceptable is 8K, 



QPiJ^TOR Rt.S?QI'JSES TO EXECUTIOK-TIME miROR CONDITIONS 

The RPG II compiler does not communicate directly with the 
operator; however, at run time it informs the operator of any 
error conditions via raessares on the console. The corauiler 
supplies variable field information when the messare is printed 
so that the operator can isolate the error, and the operator may 
i^aPe his choice of responses. Differing resTX)nses are le^ral for 
d liferent messafres. The user may enter a one-character response 
co< e, as follows: 

To continue processinr; where he left off. 

1 To ro to the bes^inninfr of the next cycle. 

2 To reouest a controlled cancel, in which tables and 
arrays are written out and files are closed before 
the .lob is ended. 

3 To cancel immediately. 

The? run-time error messacres and the leraal response options 
available are listed on the following pap;e. 
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Error No. 


Message 


Variable Fields 


Permitted 
Responses 







1 


2 


3 




RGRT0001 


IND ON IS Hn 


n = indicator 0-9 


X 




X 


X 




RGRTO002 


NEG. SQ. RT. AT LINE nnnnn 


nnnnn = line number 


X 




X 


X 




RGRT0003 


ARITH OVERFLOW AT LINE nnnnn 


nnnnn = line number 


X 




X 


X 




RGRT0004 


DIVIDE BY AT LINE nnnnn 


nnnnn = line number 


X 




X 


X 




RGRT0005 


VARIABLE ARRAY INDEX IS 0, MINUS, 
OR TOO LARGE AT LINE nnnnn 


nnnnn = line number 


X 




X 


X 




RGRT0006 


TABLE/ARRAY SEQ ERROR, T/A- 
RECORD NO. S nnnnn-nnnnn * 
FILE IS xxxxxxxx 


nnnnn-nnnnn = table/array 
number and record number; 
xxxxxxxx = file identification 


X 




X 


X 




RGRT0007 


TABLE/ARRAY MISSING, T/A NO. 
nnnnn • FILE IS 


nnnn = table/array number; 
xxxxxxxx = file identification 


X 




X 


X 




RGRT0008 


EXCESS TABLE/ARRAY ENTRIES,T/A 
NO. nnnnn * FILE IS xxxxxxxx 


nnnn = table/array number 
xxxxxxxx = file identification 


X 




X 


X 




RGRTO009 


PARTITION SIZE EXCEEDED 


None 








X 




RGRT0010 


IP FORMS ALIGNMENT 


None 


X 


X 








RGRT001 1 


RECORD SEQ ERROR * FILE IS 
xxxxxxxx 


xxxxxxxx = file identification 




X 


X 


X 




RGRT0012 


MATCHING RECORD SEQ ERROR * 
FILE IS xxxxxxxx 


xxxxxxxx = file identification 




X 


X 


X 




RGRT0013 


UNIDENTIFIED RECORD • FILE 
IS xxxxxxxx 


xxxxxxxx = file identification 




X 


X 


X 




RGRT0014 


INVALID NUMBER AT LINE nnnnn 


nnnnn = line number 


X 




X 


X 




RGRT0015 


CHANNEL NOT DEFINED ON LINE 
COUNTER • FILE IS xxxxxxxx 


xxxxxxxx = file identification 


X 






X 




RGRT0016 


BINARY CONVERSION OVERFLOW 
AT LINE nnnnn 


nnnnn = line number 


X 






X 




RGRT0017 


TABLE/ARRAY BINARY OVERFLOW, 
T/A NO. nnnnn * FILE IS 
xxxxxxxx 


nnnnn = table/array number; 
xxxxxxxx = file Identification 


X 






X 




RGRT0018 


SPECIAL FILE I/O ERROR nnn 


nnn = error code 






X 


X 




RGRT0019 


EOF INDICATOR MISSING ON READ 
OR CHAIN OPERATION * FILE IS 
xxxxxxxx 


xxxxxxxx = file identification 






X 

_ 


X 
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MRX/SYSTEM 3/MODEL 20 COMPARATIVE ANALYSIS 



The following table presents an analysis of the RPG features 
supported by Memorex as compared to IBM's Systeffi/3 and Model 20 



Feature 



AN/OR calculations 
Arrays 

Binary input and output fields 

Binary operations 

Binary search 

Combined files 

DEBUG statement 

Demand files 

Display files 

Dual-feed printer 

Fetch overflow 
Input chaining 
Lookahead 

MFCM 

MFCU 

Multiple printing of first line 

READ calculations 

Sign forcing 

Special field names PAG£1,PAGE2, 
PAGE3 

Special field name *PLAC£ 



MAX 



Yes No 



X 
X 
X 
X 
X 

X 
X 
X 



X 
X 

X 
X 

X 



X 



X 
X 



Support 
System/^ 



Yes No 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



X 
X 
X 



X 



Mod 20 



Yes I No 



X 
X 



X 
X 

X 
X 



X 
X 
X 



X 
X 
X 
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Feature 


MRX 


Support 
System /3 


Mod 20 


Yes 


No 


^es 


No 


Yes 


No 


SQI?T calculations 


X 




X 






X 


Stacker select 




X 


X 




X 




Sterling currency 




X 


X 




X 




Suppression of IP skip to 
channel 1 


X 






X 


X 




Tapes 


X 






X 


X 




Translation table 


X 




X 






X 


Unprintable character halt 




X 


X 




X 




Variabl e-length records 


X 






X 


X 




XFOOT operations 


' 




X 






X 



PAGE 
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STRUCTURE 



Indexed files are divided into two portions: the data portion, 
and the index portion. 



DATA PORTION 

The data portion of an indexed file is composed of blocks of 
fixed-length data records which are scattered on the storap-e 
device. Each of these data records contains a uniaue record key 
which serves to identify the particular record. The lenrth of 
this key and the record position in which the key field T^erins 
are specified in columns 29-30 (lenp:th of key field entry) and 
35-38 (startin/^ location of key field entry) of the RPG 11 File 
Description Specifications Sheet. 



INDEX PORTION 

The index portion of an indexed file contains a copy of each data 
record's key. The keys are arran/^d in sequence. Each record's 
key is followed by an address associated with that key; the 
address consists of the number of the data block in which the 
data record resides, and the number of the record. The kevs and 
addresses thus form the control information used in findinf^ data 
records in the data portion of the file. Every record in the data 
portion of an indexed file is identified in the index -portion of 
tliat file by such control information. (See Appendix J, "Index 
Portion of Indexed Pile," for a more detailed explanation of the 
index portion's structure.) 



INDEX BI,OCKS 

When an indexed file is created, the Data Manaf'ement facility of 
the Meracrex Operating; System writes the index control information 
on, disc in blocks; these blocks of information are referred to as 
index blocks. The size of index blocks can vary from file to file 
(see "Index Block Sizes" in this appendix). It is governed by 
such factors as record key lenf?;ths and the number of records in 
the data portion of the file. 
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INDEX SUITERS 

To find the location of a specific data record, the index portion 
of the indexed file must be searched for the block containing the 
right key and address. Searching the index portion involves 
reading index information from disc into mam storage for 
analysis by the Data Management facility. A buffer must be 
defined to hold the index information; this buffer is referred to 
as an index buffer. The index information is read into the index 
buffer by blocks until the proper key is found. Because the index 
is itself built with an index structure, no more than three 
blocks need to be read before the key is located; the address of 
the record is then extracted from the key to determine the 
record's location. 



INDEXED IILE ACCESS 

Indexed files may be accessed for data records either 
sequentially or randomly. The mode of processing affects the rate 
of retrieval. 



SE<2UENTIAL ACCESS 

To access a data record in an indexed file sequentially. Data 
Management merely reads the index sequentially. The keys are 
already in sequential order. After accessing the first record. 
Data Management uses the address associated with the next key to 
obtain the next record. From the block number and record number 
which form the address. Data Management can calculate the storage 
location where the data, resides. It reads in the data block, then 
readies the record for processing. 
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RANDOM ACCESS 

Random access of an indexM file requires searching:. The search 
begins with the high-level directory* in the index portion of the 
file. Because the high-level directory is accessed so frequently, 
it is often advantageous to have it in memory all the while the 
file is being used. This is accomplished by copying it into the 
higli-level dirc;ctory buffer rather than the usual index buffer. 
In this way the high-level directory is never copied over by 
other index information. When an RPG II user makes a high-level 
directory size entry in columns 47-52 of the File Description 
Specifications Sheet, he is specifyinp- that the hiph-ievel 
directory is to stay in memory. The entry is valid only for 
random processing of indexed files. 



INDEX BLOCK SIZES 

When a user is planning the creation of indexed files, he must 
decide whether he wants to process the high-level directory in a 
main storage buffer. This option speeds up random processing, but 
requires extra space for the buffer. Once the user has made this 
decision, he must calculate the index block size; this he can do 
either by table or by formula (see "Calculating Index Block Size 
by Table" and "Calculating Index Block Size by Formula" in this 
appendix) . 



MINIMUM INDEX BIX3CK SIZE 

EVery indexed file has a minimum index block size which depends 
On key size and file size. The user may utilize any index block 
size larger than the minimum if he has storage space for a larger 
index block; the larger the index block, the better retrieval 
becomes on random processing. If the user goes below the minimum 
index block size, the possibility exists that he may not be able 
to create the file size as planned. 



* The high-level directory used in RPG II is referred to as the 
"directory-directory" in the Data Management Extended, COBOIi, 
and Control Language Extended Reference Manuals. 



APPENDIX I PAGE 4 



OPl'IMUM INDEX BLOCK SIZE 

If the user chooses to process the file randomly with the 
hi/^b-level directory in a main storaf^e Ixiffer, a well defined 
optimum index "block size may be used which minimizes storage 
space for the index buffer and hif-h-level directory buffer. When 
usin^ the optimum block size, however, he must be careful at file 
creation time not to exceed the file maximum number of records 
from which he calculated the keys per block. This restriction is 
further explained under "Index Buffer Size" in this appendix. 



CALCULATING INDEX BLOCK SIZE BY TAH.E 

Once the user has determined his mode of processinr, he may 
calculate the index block size by means of the tables on the 
followinf^ pap;es. In both tables 1-1 (for minimum index block 
size) and 1-3 (for optimum index block size), the larper of the 
two values in the file size is the determining factor. The user 
should also note that for consistency these two tables were 
computed for a maximum key size of 100 bytes, with one million 
records as the upper limit. Some index block sizes will te 
com? u ted that exceed one track in number of bytes; since this 
size is more than the system limit of 7294 bytes for blocks, tte 
user will have to choose a smaller key size or file size. 



MINIMUM INDEX BLOCK SIZE 

Table 1-1 is used to determine the minimum number of keys per 
index block. The following procedure may be used to calculate the 
minimum block size using Table 1-1 in conjunction with Table 1-2: 

1. In Table 1-1, locate the number of records in the file and 
the key size. For example, if the number of records Is 20,000 
and the key size is 10, the minimum keys per index block is 

24. 

2. Enter the keys per block in the Control Language define 
(//DEF) statement, along with the key size. 

3. Calculate the corresponding minimum index block size from 
Table 1-2, using the minimum block size formula. With minimum 
keys per index block of 24 and a key size of 10, for example, 
the minimum index block size would be 384 bytes. 

4. Enter the minimum index block size in the source prorram (see 
"Index Buffer Size" in this appendix). 
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Records in File 














Keys 


ze in 


Bytes 














2 


3 


4 


5 


6 


7 


8 


9 


10 


11 
to 
15 


16 
to 
20 


21 
to 
25 


26 
to 
35 


36 
to 
50 


51 
to 
100 


1 - 5,000 


13 


14 


14 


14 


15 


15 


15 


15 


15 


16 


16 


16 


16 


17 


17 


5,001 - 10,000 


16 


17 


18 


18 


18 


19 


19 


19 


19 


20 


20 


20 


21 


21 


21 


10,001 -15,000 


19 


20 


20 


21 


21 


21 


22 


22 


22 


23 


23 


23 


23 


24 


24 


15,001 -20,000 


20 


21 


22 


23 


23 


23 


24 


24 


24 


25 


25 


26 


26 


26 


26 


20,001 - 25,000 


22 


23 


24 


24 


25 


25 


25 


26 


26 


27 


27 


27 


28 


28 


28 


25,001 - 30,000 


23 


24 


25 


26 


26 


27 


27 


27 


28 


28 


29 


29 


29 


30 


30 


30,001 - 35,000 


25 


26 


27 


27 


28 


28 


28 


29 


29 


30 


30 


31 


31 


31 


32 


35,001 - 40,000 


26 


27 


28 


28 


29 


29 


30 


30 


30 


31 


32 


32 


32 


33 


33 


40,001 - 45,000 


27 


28 


29 


30 


30 


31 


31 


31 


31 


32 


33 


33 


34 


34 


34 


45,001 - 50,000 


28 


29 


30 


31 


31 


32 


32 


32 


33 


34 


34 


34 


35 


35 


36 


50,001 - 60,000 


29 


31 


32 


32 


33 


34 


34 


34 


35 


36 


36 


37 


37 


37 


38 


60,001 - 70,000 


31 


32 


34 


34 


35 


35 


36 


36 


36 


37 


38 


38 


39 


39 


40 


70,001 - 80,000 


32 


34 


35 


36 


36 


37 


37 


38 


38 


39 


40 


40 


41 


41 


42 


80,001 - 90,000 


34 


35 


36 


37 


38 


38 


39 


39 


40 


41 


41 


42 


42 


43 


43 


90,001 - 100,000 


35 


36 


37 


38 


39 


40 


40 


41 


41 


42 


43 


43 


44 


44 


45 


100,001 -125,000 


37 


39 


40 


41 


42 


43 


43 


44 


44 


45 


46 


47 


47 


48 


48 


125,001 -150,000 


40 


41 


43 


44 


45 


45 


46 


46 


47 


48 


49 


49 


50 


51 


51 


150,001 -175,000 


42 


44 


45 


46 


47 


48 


48 


49 


49 


50 


51 


52 


53 


53 


54 


175,001-200,000 


44 


46 


47 


48 


49 


50 


50 


51 


51 


53 


54 


54 


55 


56 


56 


200,001 - 250,000 


47 


49 


51 


52 


53 


54 


54 


55 


55 


57 


58 


58 


59 


60 


61 


250,001 - 300,000 


50 


52 


54 


55 


56 


57 


58 


58 


59 


61 


61 


62 


63 


64 


64 


300,001 - 350,000 


52 


55 


57 


58 


59 


60 


61 


62 


62 


64 


65 


65 


66 


67 


68 


350,001 - 400,000 


55 


57 


59 


61 


62 


63 


63 


64 


65 


67 


68 


68 


69 


70 


71 


400,001 - 450,000 


57 


60 


62 


63 


64 


65 


66 


67 


67 


69 


70 


71 


72 


73 


74 


450,001 - 500,000 


59 


62 


64 


65 


67 


68 


68 


69 


70 


72 


73 


74 


74 


75 


76 


500,001 -600,000 


63 


66 


68 


69 


71 


72 


73 


73 


74 


76 


77 


78 


79 


80 


81 


600,001 - 700,000 


66 


69 


71 


73 


74 


75 


76 


77 


78 


80 


81 


82 


83 


84 


85 


700,001 - 800,000 


69 


72 


74 


76 


78 


79 


80 


81 


81 


84 


85 


86 


87 


88 


89 


800,001 - 900,000 


72 


75 


77 


79 


81 


82 


83 


84 


85 


87 


88 


89 


91 


91 


93 


900,001 - 1 ,000,000 


74 


78 


80 


82 


84 


85 


86 


87 


88 


90 


92 


93 


94 


95 


96 



Table 1-1. Minimum Keys Per Block. 
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Optimum block size = 10 + 



Minimum block size = 10 + 



(10) (0KB) (KS+4) 1 
9 I 

0KB = Optimum keys/block 
KS = Key size 



(10) (MKB) (KS+4) 



9 



MKB = Minimum keys/block 
KS = Key size 



II 



NOTE: { } = Round up if result not whole integer. 



TalDle 1-2. Optimum or Minimum Index Block Size. 

lARGER THAN MINIMUM INDEX BLOCK SIZE 

An index block size that is larf^er than the minimum may he 

calculated usin^ the steps shown for calculatinf»; the minimum 

index block size; however, the keys per block figure must te 

.f^reater than or equsil to the minimum keys per block numbex 
selected. 

OPTIMUM INDEX BLOCK SIZE 

The optimum index block size can be calcula,ted with the following; 
procedure : 

1. In Table 1-3, locate the number of records in the file and 
the key size. Por example, if the number of records is 20,000 
and key size is 10, the optimum keys per block is 30. 

2. Enter the keys per block in the Control Language define 
(//DEF) statement, along with the key size. 

3. Calculate the corresponding optimum index block size from 
Table 1-2, using the optimum block size formula. With optimum 
keys per index block of 30 and a key size of 10, for example, 
the optimum index block size would be 477 bytes. 



A. 



Enter the optimum index block size in the source prorram. 
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Records in File 














Keys 


ze in Bytes 














2 


3 


4 


5 


6 


7 


8 


9 


10 


11 
to 
15 


16 
to 
20 


21 
to 
25 


26 
to 
35 


36 
to 

50 


51 
to 
100 


1 -5,000 


16 


17 


18 


18 


18 


19 


19 


19 


19 


20 


20 


20 


21 


21 


21 


5,001 -10,000 


20 


21 


22 


23 


23 


23 


24 


24 


24 


25 


25 


25 


26 


26 


26 


10,001 -15,000 


23 


24 


25 


26 


26 


27 


27 


27 


27 


28 


29 


29 


29 


30 


30 


15,001 -20,000 


26 


27 


28 


28 


29 


29 


29 


30 


30 


31 


32 


32 


32 


33 


33 


20,001 - 25,000 


28 


29 


30 


31 


31 


32 


32 


32 


33 


34 


34 


34 


35 


35 


36 


25,001 - 30,000 


29 


31 


32 


32 


33 


34 


34 


34 


35 


36 


36 


37 


37 


37 


38 


30,001 - 35,000 


31 


32 


33 


34 


35 


35 


36 


36 


37 


37 


38 


38 


39 


39 


40 


35,001 -40,000 


32 


34 


35 


*36 


36 


37 


37 


38 


38 


39 


40 


40 


41 


41 


42 


40,001 -45,000 


34 


35 


36 


37 


38 


38 


39 


39 


40 


41 


41 


42 


42 


43 


43 


45,001 - 50,000 


35 


36 


37 


38 


39 


40 


40 


41 


41 


42 


43 


43 


44 


44 


45 


50,001 -60,000 


37 


39 


40 


41 


42 


42 


43 


43 


43 


45 


45 


46 


46 


47 


48 


60,001 - 70,000 


39 


41 


42 


43 


44 


44 


45 


45 


46 


47 


48 


48 


49 


49 


50 


70,001 -80,000 


40 


42 


44 


45 


46 


46 


47 


47 


48 


49 


50 


50 


51 


52 


52 


80,001 - 90,000 


42 


44 


45 


47 


47 


48 


49 


49 


50 


51 


52 


52 


53 


54 


54 


90,001 -100,000 


44 


46 


47 


48 


49 


50 


50 


51 


51 


53 


54 


54 


55 


56 


56 


100,001 -125,000 


47 


49 


51 


52 


53 


54 


54 


55 


55 


57 


58 


58 


59 


60 


61 


125,001 -150,000 


50 


52 


54 


55 


56 


57 


58 


58 


59 


61 


61 


62 


63 


64 


64 


150,001 -175,000 


52 


55 


57 


58 


59 


60 


61 


61 


62 


64 


65 


65 


66 


67 


68 


175,001 -200,000 


55 


57 


59 


61 


62 


63 


63 


64 


65 


67 


68 


68 


69 


70 


71 


200,001 - 250,000 


59 


62 


64 


65 


67 


68 


68 


69 


70 


72 


73 


74 


74 


75 


76 


250,001 - 300,000 


63 


66 


68 


69 


71 


72 


73 


73 


74 


76 


77 


78 


79 


80 


81 


300,001 - 350,000 


66 


69 


71 


73 


74 


75 


76 


77 


78 


80 


81 


82 


83 


84 


85 


350,001 - 400,000 


69 


72 


74 


76 


78 


79 


80 


81 


81 


84 


85 


86 


87 


88 


89 


400,001 - 450,000 


72 


75 


77 


79 


81 


82 


83 


84 


85 


87 


88 


89 


91 


91 


93 


450,001 - 500,000 


74 


78 


80 


82 


84 


85 


86 


87 


88 


90 


92 


93 


94 


95 


96 


500,001 - 600,000 


79 


82 


84 


87 


89 


90 


91 


92 


93 


96 


97 


98 


100 


1t)1 


102 


600,001 - 700,000 


83 


87 


90 


92 


94 


95 


96 


97 


98 


101 


102 


103 


105 


106 


107 


700,001 - 800,000 


87 


91 


94 


96 


98 


99 


100 


102 


102 


105 


107 


108 


110 


111 


112 


800,001 - 900,000 


90 


94 


97 


100 


102 


103 


105 


106 


106 


110 


111 


112 


114 


115 


116 


900,001 -1,000,000 


93 


98 


101 


103 


105 


107 


108 


109 


110 


113 


115 


116 


118 


120 


121 



Table 1-3- Optimum Keys Per Block. 
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INDEX Bltt'JER SIZE 

When the keys per block and key size are entered in the Control 
LanruaiP;e define statement and the correspondinfr minimum or 
ortiinum index block size has been calculated from Table 1-2, the 
index block size is then entered in the RPG II source -profrram via 
the index buffer size specification of the file definition card 
(columns 60-65 of the File Description Specifications Sheet). 



HIGH-LEVEL DIRECTORY SIZE 

If the user has elected to calculate the optimum keys ver index 
block and optimum index block size, he then uses Table 1-4 to 
calculate the number of bytes for the main stora,^e buffer for the 
hi^h-level directory entries, and enters the resulting firure m 
columns 47-52 of the file definition card (hiph-level directory 
fiize entry). Usinpr an optimum index block size of 477 bytes, a 
key size ' of 10, ' and a file size of 20,000, for examT^le, the 
number of bytes required for the buffer for the hirr^v-level 
directory would be 250. 



„„, .[lap], us 

Number keys/primary index block =1 ^3+4! ^ ^*^^ 
Number keys/directory block "|_j^^J= ^KD 

Total number keys represented/ 

directory block = (NKP) (NKD) = NKRD 

Number entries In _| file size ! (^(^qq 

High-level directory block \ NKRD J 

Number of bytes required for 

buffer for high-level directory = 10 + (KS+2) (NKDD) 



NOTE: I }= Round up if result not wfhole integer. 

r "1= Round down if result not whole integer. 



Table 1-4. 
Bytes Required in Buffer for Hirh-I.i<5vel Directory Entries 
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The user must be careful at file creation time not to exceed the 
file ma:xiinuffl number of records from which he calculated the keys 
per index block when usin/:r the optimum block size. If this we're 
to occur, the main storage buffer would not be Inrf^e enourh to 
hold the hi^h-level directory entries for random processinr, and 
the excess would be written over the user propxam. When an index 
block size other than the optimum is chosen, and the main storape 
buffer is used to process the hijp;h-level directory entries, the 
buffer size should be the size of the index block. The system 
checks for overflow of this value at file creation time. 



CAI.CULATIMG INDEX BLOCK SIZE BY FORMULA 

If the user wishes to calculate the keys per index block with a 
file maximum number of records different from those p'iven in 
Tables 1-1 and 1-3, he may use the following: al/rorithms, alonp 
with Table 1-5, to compute minimum and optimum keys -ner index 
block. The constants Ko and Km, taken from' Table 1-5, are based 
on key size. 



Optimum (0KB) 



=!<¥ 



Minimum (MKB) =^^ 



FS 
Km 



FS = IVIaximum File Size 



NOTE: j I = Round to next higlier integer 
if result not wliole integer. 
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n- 



10 



KS 


Ko 


Km 


KS 


Ko 


Km 


2 


1.2500 


2.5000 


52 


.5975 


1.1950 


3 


1 .0888 


2.1776 


53 


.5967 


1.1934 


4 


.9877 


1.9753 


54 


.5959 


1.1918 


5 


.9184 


1.8367 


55 


.5952 


1.1904 


6 


.8681 


1.7361 


56 


.5945 


1.1890 


7 


.8299 


1 .6598 


57 


.5939 


1.1878 


8 


.8000 


1.6000 


58 


.5932 


1.1864 


9 


.7759 


1.5518 


59 


.5926 


1.1852 


10 


.7562 


1.5124 


60 


.5920. 


1.1840 


11 


.7396 


1 .4792 


61 


.5914 


1.1828 


12 


.7256 


1.4512 


62 


.5908 


1.1818 


13 


.7136 


1.4272 


63 


.5903 


1.1806 


14 


.7031 


1 .4062 


64 


.5897 


1.1794 


15 


.6940 


1 .3880 


65 


.5892 


1.1784 


16 


.6859 


1.3718 


66 


.5887 


1.1774 


17 


.6787 


1.3574 


67 


.5882 


1.1764 


18 


.6722 


1 .3444 


68 


.5878 


1.1756 


19 


.6664 


1 .3328 


69 


.5873 


1.1746 


20 


.6612 


1 .3224 


70 


.5868 


1.1736 


21 


.6564 


1.3128 


71 


.5864 


1.1728 


22 


.6520 


1.3040 


72 


.5860 


1.1720 


23 


.6480 


1.2960 


73 


.5856 


1.1712 


24 


.6443 


1.2886 


74 


.5852 


1.1704 


25 


.6409 


1.2818 


75 


.5848 


1.1696 


26 


.6378 


1 .2756 


76 


.5844 


1.1688 


27 


.6348 


1 .2696 


77 


.5840 


1.1680 


28 


.6321 


1.2642 


78 


.5837 


1.1674 


29 


.6296 


t.2592 


79 


.5833 


1.1666 


30 


.6272 


1.2544 


80 


.5830 


1.1660 


31 


.6249 


1.2498 


81 


.5827 


1.1654 


32 


.6228 


1 .2456 


82 


.5823 


1.1646 


33 


.6209 


1.2418 


83 


.5820 


1.1640 


34 


.6190 


1.2380 


84 


.5817 


1.1634 


35 


.6172 


1.2344 


85 


.5814 


1.1628 


36 


.6156 


1.2312 


86 


.5811 


1.1622 


37 


.6140 


1.2280 


87 


.5808 


1.1616 


38 


.6125 


1.2250 


88 


.5805 


1.1610 


39 


.6111 


1 .2222 


89 


.5802 


1.1604 


40 


.6097 


1.2194 


90 


.5800 


1.1600 


41 


.6084 


1.2168 


91 


.5797 


1.1594 


42 


.6072 


1.2144 


92 


.5794 


1.1588 


43 


.6060 


1.2120 


93 


.5792 


1.1584 


44 


.6049 


1.2098 


94 


.5789 


1.1578 


45 


.6038 


1 .2076 


95 


.5787 


1.1574 


46 


.6028 


1.2056 


96 


.5785 


1.1570 


47 


.6018 


1.2036 


97 


.5782 


1.1564 


48 


.6009 


1.2018 


98 


.5780 


1.1560 


49 


.6000 


1.2000 


99 


.5778 


1.1556 


50 


.5991 


1.1982 


100 


.5776 


1.1552 


51 


.5983 


1,1966 
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APPENDIX J. INDEX PORTION 07 TWT^EXED FILE 



io-::b---" «<=" ^'^^^^^^^^^ 



Block 1 


Information Block 


2 


Primary Index Blocks 




Available Space 


Slock n 


High-Levol Directory Block 


n+1 


Directory Index Blocks 




Available Space 



Fif^re J-1. Index Portion of an Indexed File 



!S'^?he°Lc^S.S|%^^2?Ll;Ln? t^.^^t.^'^^ '^ <'t-— <^ 
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Ti-jl''ORMATIOM BLOCK 

'I'hP information block of an Indexed file's index portion surpliejs 
thi 'aiSrssef of Se^last blocks of ^^le data a^d index portio^^^ 
r.-i' +>!*:> flip that were written. This enables the Data ManapeinenL 
?LiS?y ^to mate tothefadditions to the file. Mrure J-2 shows 
the fields contained in the information block. 



Byte 
2 


Common Stored Data Record Header 


4 


Pass Boundary Index 


Track Boundary Index 


6 
8 


Block Address of Last Spattered Block Written 


10 


Primary Index Thread Block Address 


12 


Block Address of High-Level Directory 


14 


Block Address of the Last Directory Index Block 


16 


Directory Index Thread Block Address 


18 


Common Stored Data Space Header 


20 


(1-3 bytes length) 





FiifTure J-2. Infonnation Block 
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HIG H-LEVEL DIRECTORY BLOCK 

Firure J-3 shows the layout of the l^ifJ^l^^l f SSh^'^v^^Se A 
dif^ctoiy index block eSdress is associated with each key value. 



Byte 
2 
4 
6 
8 
10 



Record Header 



Previous Block Link 



Next Block Link 



Count of Values in Block 



m+2 



Key Value 1 
(1-100 Character EBCDIC) 



Pointer to Directory Index Block 



n+2 



Key Value 2 



Key 1 



Pointer to Directory Index Block 



Space Header 

and 
Available Space 



Key 2 



Figure J-3. High-Level Directory Block 

The previous block link and next block Ij'*^^"*?;^^!^^^! """^ "^^^ 
in the direct oiy blocks; they are reserved for future use. 
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PIKICTQRY IIvDPy BLOCK 



ri-ure J-4 illustrates the layout of the directorv inr\o^ -hi^^i. 
l.'.ci key value has an associated priBiary index block aSdresS * 



Byte 
2 
4 
6 
S 
10 



Record Header 



Previous Block Link 



Next Block Link 



Count of Values in Block 



Key Value 1 
A (1-100 Character EBCDIC) 



m Pointer to Primary Index Block 
ni+2 



Key 1 



Key Value 2 



n Pointer to Primary Index Block 



n+2 



> Key 2 



Space Header 

and 

Available Space 



Pirure J-4., Directory Index Block 
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PKI^:ARY INDEX BLOCK 



j'i,'n;re J-5 shows the layout of the primary index bloc!- 
hlock-record address is associated with each key value. 



Byte 

2 
4 
6 
8 
10 



m+2 

m+4 



ni+2 
ri+4 



Record Header 



Previous Block Link 



Next Block Link 



Count of Values in Block 



Key Value 1 
(1-100 Character EBCDIC) 



Logical Block Number 



Record Number 



Key Value 2 



Logical Block Number 



Record Number 



Space Header 

and 
Available Space 



> Key 1 



>Key2 



Fipure J-5. Primary Index Block 
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ampersand, use in edit word) 8-23 

asterisk, use with comments) 3-? 

asterisk, use with edit code) 8-18 
end record, alternate collating sequence tatle) 2-7 
look-ahead fields) 6-2,6-17 
preceding record, tables and arrays) 4-5 > 4-6 
** (separation records, tables and arrays) 4-13 
*PLACE special word 8-4,8-16 

(see also "field name, output": "special words") 

conditioning *PI.ACE fields 8-4,8-16 

end position in output record 8-4,8-16 

overlapping *PLACE fields 8-4 
/* (end-of-file delimiter) 4-5,4-6 
//PAR card r-2 
$ (fixed or floating dollar sign) 8-18 

ADD (add) operation code 7-4 

ADD entry 8-9 

add records 3—22 

adding entries to a short array 4—4 

adding items to tables or arrays 4—8 

adding records to files 3-22 

(see also individual file types) 

File Description entry 3-^ 

indexed file 3-22,7-26 

Input files 8-9 
output files 8-9 
update files 8-9 
valid add records 3-22 
addresses, track 3-19 
AWROUT files 3-4 

(see also "record address files"; "relative record number") 
File Description entries 

file organization (col. 32) 3-14 
length of key field (cols. 29-30) 3-13 
mode of pa^ocessing (col. 28) 3-12 
processing 3-14 

rtjcord address type (col. 31) 3-14 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 3-18,3-19 
summary chart 3-13 
adjusting results entry 7-39 
AKCER entry 

with skip entry 8-11 
v/ith space entry 8-12 
alignment of printer forms 2-9 
ariocatibn of computer storage 2-3 
allocation of file space on disc D-1 
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alphabetic characters (definition) 'C-1 
alphanumeric 

array entries ^4-4,4-15 

characters (definition) C-1 

fields 2-6 

collating sequence 2-5 

literals 7-2 

match fields 6-28 /«r^„T^^ n n 
moving alphanumeric fields (MOVE) 7-7 

zero alphanumeric fieldf -^^ 
table or array items 4-4,4— Id , , , ^^ -7 iv 
altering the program pycle for I/O during calculations 7-2. 



alternate collating sequence 

(see also "coll-ating sequence") 



ALTSEQ 2-6 

change record cards 2-6 

characters affected 6-21 

coding sheet 2-5 

compare operations 7—10 

control card entry 2-5 

control fields 6-8 , 

defining an alternate collating sequence 2-6 

end record 2-7 
example 2-7 
input record format 8-1 
match fields iS-28 
table 2—5 

S^ISlttiSi fSS? [l^ ".?Sl?i:;^tables and arrays", "array."; 

" tables " ) 
ALTERNATE TABLE OR ARRAY entry 4-18 
aLTSEQ (see alternate collating sequence} 
amount of storage needed for decima:L representation 6-5 
ampersand (&), use in edit word 8-23 
analysis stage (see "RPG II system description") 
AW and OR lines , . ,.% 

(see also "AND and OR lines") 

Calculation sheet entries 7-32 

control level entry 7-31 

record code characters 6-20 

^^^(S^ ^so^"?lcord identification codes"; "OR relationship") 
indicators in an AND relationship in calculations 7-32 
Input sheet entries 6-25 

example 6-26 

record code characters 6-20 
Output sheet entries 8-8 
stacker select entries 

input 6-22 

output 8-9 
AND/OR entry 8-8 



INDEX PAGF 



AND relationship 

Calculation sheet (indicators) 7-32 

Input sheet (record codes) 6-20 

Output sheet (output indicators) 8-8 
arithmetic operations 7-3 

(see also "operation codes"; "operations") 

decimal positions in arithmetic operations 7-3 

factor 1 and factor 2 7-3 

length of fields 7-3 

list (see "operation codes") 

using three fields 7-3 
arithmetic overflow 2-13 
arrangement of cards in source deck 1-6 
array files 3-4 

(see also "table files") 

extension code 3-16 
arrays 

(see also "tables"; "related tables and arrays"; "item") 

adding entries to a short array 4—4 

adding items 4—8 

alphanumeric entries 4-4 

alternating arrays 4-10.4-14,4-18 

alternating format 4-5»4— 14,4-15,4-16,4-18 

binary format 4-15,4-16 

building (see "loading") 

building via calculations (see "execution time arrays") 

changing 4-3 , 4—5 , 4-8 

compilation 4-5 

compile time 3-4,4-3, 4— 6,4-16 

corresponding items 4-14 

creating input records 4—4 

crossfoot operation 7-6 

decimal format 4-15,4-16 

decimal positions 4-.7,4-17 

decimal positions entry 4-16 

defining arrays (Extension sheet) 4-10 

definition 4—1 

definitions of terms C-1 

dynamic arrays (see "execution time arrays") 

editing 4-10 

edit words with arrays 8-17 

end of array 4—10 

end-of-job Indicator 4—9 

entry 4-4,4-5 

execution time 4-3,4-6,4-9,4-10 

Extension specifications 4'-11 

file designation entry 3-9 

files 3-4 

format 4-1,4-5,4-6,4-15,4-16 

formatting output (see "exception output") 

full array (definition) 4-4 

general discussion 4—1 

index field 7-20 

Indexing 4-2,4-7,4-10,6-26,7-20 
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arrays (continued) 
item 4-1 

format 4-1,4-4 

index 4-2 

searching for 4-2,7-20 
(see also "LOKUP") 
length of entry 4-4 
loading 4-5 

compilation time 4-3 » 4-5 

considerations 4—3 

execution time 4—3,4-6 

from more than one record or file 4-13 

from one record 4—7 

placement in source deck 1-6 

pre-execution time 4-3,4-6,4-12 4.4««ii\ 

via input or calculations (see "arrays, execution time'; 

LOKUP (see "LOKUP operation code'O 
maximum descriptions per program 4—1 
modifying the contents 4-8 

adding entries to a short array 4-4 
name 4-2 

alphanumeric items 4-4,4-15 

alternating arrays 4-14 

as factor 1 or 2 4-8 

as operand 4—2 

as result field 4-8 

Extension sheet 4-14 , „ 
File Description sheet 3-8 
"from" filename entry 4-12 
in calculations 4—8,4—9 
length 4-2 
referencing on input 6-26 

rules for 4-2,4-9 

size with calculations 4-8 

"to" filename entry 4-13 

using array names 4-2 

with field name 7-20 
number of entries per array 4-15 
numeric entries 4-4,4-15,4—16 
output 4-9,4-10 

formatting 4—13 

(see also "EXCPT operation") 

on one record 4-10 

via Extension sheet 4-9 

via Output sheet 4-9,4-10 ^^ . ., 
packed or binary format 4-6,4-1 5,4- lo 
preceding record 4-5,4-6 
pre-execution time 3-4,4-3,4-6,4-11 
recording array data (rules) 4-4 
referencing ai-ray names on input 6-26 
referencing ai*rays in calculations 4-3 
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an'ays (continued) 

related arrays 4-10 

alternating format 4—5,4-14 

definition 4-4 

length of entry specification 4-15 

naming 4-14 
searching arrays (see "LOKUP operation") 
separation records 4—13 
sequence (Extension sheet ehtry) 4—17 
sequence of definition 4—11 
short arrays (definition) 4-4 
specifying bits 7-11 
square root operation with arrays 7-6 
types 4-3 

compile time 4-3 

execution time 4—3 

full 4-4 

pre-execution time 4—3 

related 4—4 

short 4-4 
using arrays 

array name and index 4—2 

array name only 4—2 

valid operations with arrays 4—8 
XrOOT(see "XFOOT operation code") 
ascending seouence (see "sequence") 
assigning 

card devices 3-1 B, 8-9 
conditioning indicators on input 6-27 
control fields on input 6-7 
control level indicators 6-9,6-27 
devices 3-17 

external indicators on File Description sheet 3-23 
field indicators on input 6-32 
first page indicator on output 8-13 
halt indicators on input 6-15,6-29,6-32 
indicators in LOKUP operation 7-18 
level zero indicator 7-32,7-33,7-39 
match fields 6-28 

overflow indicators on File Description sheet 3-15 
record identifying indicators on input 6-15 
asterisk fill (asterisk protection) 8-5,8-18 
(see also "e it word" J 
edited fields 8-5 
edio words 8-5,8-18 
asterisk used to introduce comments 3-8 
automatic 

page numbering 8-4 
skip to top of forms 8-3 
available lines for print 5-3 

BEFORE entry 

with skip entry 8-11 
with space entry 8-12 
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BEGINS entry 6-24 

.BiiGSR (begin suTaroiatine) operation code 7-22 

binary field operations 7-11 
binary fields 

(see also "packed or binary fields") 

conversion of numeric fields 6-6,6-23 

Extension sheet 4-16 

Input sheet 6-23 

length of fields 6-6 

Output sheet S-21 

sign 6-6 

tables and arrays 4-16 
binary relative record number 3-4 , ^., . . 

(see also "relative record number'"; "record address files") 

binary search 2-7 

(see also "binary field operations"; "packed or binary fields") 

combinations 2~8 

testing 7-11 

use of indicators 7-12 
BITOP (set bit off) operation code 7-12 
BITON (set bit on) operation code 7-11 
blank after 

Output sheet entry 8-19 

resetting fields to zeros or blanks 8-20 

used with field indicator 7-14 
BLAM APTER entiy 8-19 
blanking out fields 8-20 
block length 3-11 

computed by RPG II for disc files D-1 

disc records 3-11 

Pile Description entry 3-11 

legal sizes 3-11 

relation to record length entry 3-11 

tape records 3-11 

unblocked record lengths 3-11 
branching operations 7-16 
buffer size 3-21 
oytes (see "packed or binary fields") 

GLS (see "Control Language Statements") 

C/Z/D (character/zone/digit portion) 6-20,6-21 

calculating storage needed for a file D-1 

calculation generator error messages G-28 

calculation specifications scan error messages 0-20 

Calculation Specifications Sheet 7-1 

calculations 

detail time 7-16,7-32 ^^ ^ ,^ 

factors (Pactor 1 and Eactor 2) 7-34 

indicators in AND relationship 7-32 

kinds of specifications 7-1 
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calculations (continued) 

operations 7-3 

(see also "operation codes"; "opexations"; individual types 

of operations) 
conditioning 7-32 
controlling 7-32 
external 7-26 
internal 7-3 

order of specification 7-32 
specification entry (cols. 28-32) 7-35 
summary table of operation codes B-6 

referencing arrays 4-3 

specifications sheet 7-1 

subroutines in 7-3 

total time 1-12,7-16 
CANCEL key (see "display operation") 
card arrangement in source deck 1-6 
cards 

change cards 2—6 

device assignment 3-18,3-19,8-9 

packed decimal or binary format punching 8-21 

*PLACE specified for card output 8-20 

punched character structure 6-3,6-21 

source deck arrangement 1-6 

spread cards &-2 

stacker selection on input &'22 

stacker selection on output 8-9 
carriage control tape 

description 5-6 

skip specification 2-13,8-12 
CARI?IAGE CONTROL TYPE entry 2-12 
causing characters to be considered equal 2-6,6-21 
CHAIN (chain) operation code 7-25 

(see also "direct file load"; "random processing") 

difference from EEAD operation 7-25 

direct file loading 7-26 

file addition entry 3-22 

relative record numbei' 7—26 

sign process specification 2-B 
chained file 3-3 

file designation entry 3-9 

processing 3-12,3-13,6-2 

sequence entry on input 6-13 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-18,3-19 
change record cards (alternate collating sequence) 2-6 
changing contents of tables and arrays 4-3,4-5,4-8 
channel 

specifications 5-5 

lose 5-6 
CHAIWEL NO. entiy 5-5 
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character 

alphabetic (definition) C-1 
alphanumeric 

definition C-1 

length of item specification (Extension sheet) 4-15 
binary 6-6 
bit structure 6-4 
tryte structure 6-4 
code translation 2-10 
collating sequesnce (table) B-1 
computer representation 6-5 
EBCDIC representation 6-3,6-21,6^22 
equal charactei-s 2-6,6-21 
input sheet entry 6-21 
insertion 8-23 

invalid (printc;r or console) 6-22 
machine represcjntation 6-3,6-5,6-22 
non— replaceable 8-23 
numeric 

definition C-1 

length of item specification (Extension sheet) 4-15 

packed decimal format 6-4 

packed decimal representation in the computer 6-5 

unpacked decimal format 6-3 
packed decimal format 6-4 
printable 6-22 
piaiched 6-3 
record code 6-19 
replaceable 8-6 , 8-22 
special (definition) C-1 

(see also "collating sequence"'; "packed or binary fields") 
negative numbers 6-4,6-22 

translation for computer representation 6-5 

unpacked decimal format 6-3 
CHARACTER entry 6-21 

checking sequence (see "sequence checking") 
CLS (see "Control Language Statements") 
code 

edit code £3-5,8-17 

end-of-file 3-9 

machine code 6-3 

operation (see "operation codes") 

record code 6»19 
code formatter eraser messages 0-31 
code formatter phase of compiler 1-9 
code generation phase of compiler 1-9 
codes, operation (see "operation codes") 
coding instructions 

alternate collating sequence 2-5 

calculations 7-30 

control card 2-1 

extension 4-1 1 

file description 3-6 
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coding instructions (continued) 

input 5-11 

line counter 5-2 

output 8-6 
coding sheets 

Alternate Collating Sequence and Translation Table 2-5 

Calculation Specifications Sheet 7-1 

Control Card Specifications Sheet 2-1 

Extension Specifications Sheet 5-1 

File Description Specifications Sheet 3-1 

Input Si)ecifications Sheet 6-1 

Line Counter Specifications Sheet 4-1 

Output-Format Specifications Sheet 8-1 

Print Chart Coding Sheet 1-14 
co3Jlating sequence 

(see also "alternate collating sequence"; "character structure") 

alphanumeric fields 2-6 

changing normal sequence 2-5 

definition 2-5 

equal characters 2-6 

normal order 2-5 

sequence checking 2-5 

table B-1 
COIXATING SEQUENCE entry 2-5 
comments 

in columns 7-80 3-^8 

in program identification field 3-23 

on Calculations sheet 7-41 

on Extension sheet 4-18 
COMMENTS entry 

Calculation sheet 7-41 

Extension sheet 4-18 

in columns 7-80 3-8 
common stored-data format 3-11 
COMP (compare) operation code 7-10 
comparative analysis (MRX/System^3,/Model 20) H-2 
compare and. testing operations 7-10 
comparing fields for a match 6-10 
compilation 

halts (see "halt indicator") 

of object program 1-3 

of source program 1-9 

tables and arrays 4-5 . 

compilation stage (see "RPG II System Description") 

compile time tables and arrays 4-5 
(see also "arrays"; "tables") 
format 4-6 
input record creation 4-4 

loading 4-3 » 4-5 
specifications 4-10 
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compiler 

design 1-9 

executive routine 1-9 

phases 

code formatter 1-9 
code gehCTation 1-9 
cross-reference 1—10 
syntax 1-9 
table overflow 1-9 
storage amount required 1-10 
structure T-8 

translation of source program 1—4 
use of control card 2-1 
computer storage allotment 2-3 

conditioning files (Pile Description entry) 3-23 . 
conditions tested by resulting indicators (calculations) 7-10 
configuration of machine 1-10 
consecutive processing of file 3-13 
console 

(see also "DSPLY operation code") 

assignment 3-18,3-19 

CANCEL and M) keys 7-24 , ^ ,„ , .^ 

device entry (File Description sheet) >-17,3-18 

display operation code 7-24 

constant . 

(see also "edit word"; "literal") 

definition 8-6 

examples 8-24 

move left operaition 7-7 

Output sheet 8-21 

rules for forming 8-23 
COJ^ISTANT entry 8-21 
control break 6-8,6-9 

(see also "control fields"; "control level") 

definition 6-8 

field record relation 6-31 

first cycle difference 6-8 

general descrii>tion 6-8 

unwanted 6-9 
Control Card Specifications Sheet 2-1 
control fields 6-7 . 

(see also "control break"; "control level") 

assigning on input 6-7 

control group 6-7 

definition 6-7 
general description 6-7 
numeric control fields 6-8 
OR relationship of record types 6-25,8-9 
rules for using 6-8 
split control fields 6-8 
control group 6-7 , .. 

(see also "control fields"; "control level") 
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Control Language Statements 

examples of compilation F-4 

linkage editor specifications F~3 

//PAR card pwarameters F-2 

requirements 

for compilation F-3 
general P-l 
control level 

(see also "control fields"; "control break") 

Calculation sheet entry 7-31 

Input sheet entry 6-27 
CONTROL LEVEL entry 

Calculation sheet 7-31 

;input sheet 6-27 
control level indicator 6-9 

assigning indicators 6-9 

Calculation sheet 7-13 

control fields (3-7 

exception 8-2 

general information 6-9,7-15 

Input sheet 6-7,6-27 

nonnal uses 6-7 

Output sheet 8-14 

relation between Caloalation sheet entries 7-32 
control level indicator (continued) 

skipping calculations 7-16 

split control fields 6-8 

summary tables E-2,B~3 

total calculations processing 1-13,6-9 
controlling calculations and output 7-1,7-29 

using field indicators (input) 6-32 

usin^ indicators in calculations 7-1,7-32 
conversion of fields 

during move operations 7-6 

numeric fields 6-6,6-23 

to binary or packed decimal output 8-21 
corresponding table or array items 4-14 
CR (negative balance symbol; see "edit words") 
creating a direct file (see "direct file load") 
crossfoot (XFOOT) operation 7-6 
CROSS-REFERENCE LIST entry 2-12 
cross-reference phase of compiler 1-10 
cycle 

altering the cycle for I/O during calculations 7-23 

detailed object program logic A-1 

general object program logic 1-11 

first and last cycle differences 1-13 
C/Z/D (character/zone/digit portion) 6-20 

data formats (see "packed or binary field"; "character structure") 

DATA LITERAL entry 7-34 

date field (UDATE, UDAY, UMONTH, UYEAR) 8-5,8-17 

DEBUG CODE entry 2-3 
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DEBUG (debu^) operation code . 7-28 
entries required 2-4,7-29 
format of detug records 
record 1 7-29 

record 2 7-29 ^. ^ . ^ n« 

general inforroation and specif i oat ions 7-28 
decimal data format 

(see also "packed and binary fields") 

packed 6-4 

ijnpacked 6-3 
decimal places (see "decimal positions") 
decimal point 

(see also "decimal positions") 

in specifications 6-24 

numeric control fields 6-8 

numeric literals 7-2 
decimal positions 

(see also "decimal point") 

Calculation siieet entry 7-38 

relation to field loigth entry 7-28 

discussion 4-17 

Extension sheest entry 4-16 

in arithmetic operations 7-3 

in page numbei'in^ 8-4 

Input sheet entry 6-24 

match fields 6-29 . 
decimal positionf; (continued) 

move operations 7-6 , ^v „ c 
move remainder operation (MVR; 7-5 

numeric control fields 6-8 
square root operation (SQRT) 7-5 
DECIMAL POSITIONS entry 
Calculation sheet 7-38 
Extension sheet 4-16 

Input sheet 6-24 , , , ^ . , , \ -, «-, 

defining a field in calculations (result field; 7-27 
defining an alternate collating seciuence 2-6 
definitions of terms C-1 
delimiter 

end-of-file (/*) 4-5,4-6 

in editing 8-5 
denend file 3-4 

(see also "READ operation code") 

external indi<3ators with 7-25 

Pile Description sheet entry 5-9 

maximum number 3-4 .^^ „ _^ 

record identifying indicators with 7-24 

with CHAIN operation code 7-25 

with READ operation code 7-24 
descending sequence (see "sequence") 
DESIGNATION entiy 3-9 
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detail 

calculations time 1~13, 7-16, 7-32 

operations time 1—11 

output record 8-2 

with control level as output indicator 8-8 
Output sheet entry 8-8 

output time 1-11,8-2 

printing 5-5,8-2 

time 1-11,1-13 
detailed ohject program logic A-1 
device 

(see also "cards'"; individual devices, individual files) 

assignment (table) 3-18 

File Description sheet entry 5-17 

output device 8-10 

record block length 3-11 

special device support (SPECIAL) 5-19 

specification when adding' records 8-9 

standard devices 3-18 

substitute devios assignment 5-18,3-19 
DEVICE entry 3-17 
digit 6-4 

(see also "character structure" j "PORTION entries") 

binary format 6-6 

byte 6-4,6-5,6-6 

length of item entry (Extension Sheet) 4-15 

packed decimal format 6-4 

packed decimal representation 6-5 

punch (see "character structure") 

structure 6-4 

unpacked decimal format 6-3 
direct file 

adding records !5-22,7-26 

creating (loading) a direct file 5-12,7-26 

processing methods 5-12 

suinmary charts 3-13 
directory size 3-22 
disc 

assignment 3-18,3-9,8-9 

device entry 3-17 

output 8-9 

(see also "direct file"; "indexed file"; "sequential Tile") 

block length entry 3-11 

device entry (Pile Description sheet) 3-17 

file addition entry 3-22 

key field 3-15 

loading 7-26 

organization (see "file orgEinization") 

processing (see "processing methods") 

with CHAIN operation code 7-25 

with READ operation code 7-24 
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display (DSPLY) operation 7-24 

Xsee also "disiday file"; "console") 



CANCEL key 7-24 

END key 7-24 ^ . _ _ . 

entering data during prograin execution 7-24 

display file 3-2 ^ . 

Xsee also "console"; 

sequence entry (file description) 3-10 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-1?^, 3-1 9 
DIV (divide) operation code 7-5 , ^ . . 

dollar sign (see "edit code": "edit word"; "floatinp dollar sign") 
domestic date format 8-5,8-17 
DSPLY (display) oi)eration code 7-24 

(see also "display file") 
dynamic array (se€} "exeaition time Eirray"; 

edit code 8-5 

with array 8-17 

with edit word 8-22 

effect on end position 8-20,8-2^? 

floating doUair sign 8-18,8-22 

inverted print 2-4 

leading zero suppression 8-5,8-1^,8-22 

Output sheet entry 8-17 

summary tables 8-17,8-1 9, &-8 

zero balances S-18 
EDIT CODE entry i3-17' 
edited fields 8-5 

editor, linkage (see "linkage editor") 
edit words 8-6,8-21 

asterisk fill 8-5,8-18 

CR (negative balance symbol) 8-23 

definition 8-:22 

dollar sign 8-16 

edit code used with 8-22 

editing considerations 8-5 

floating dollar sign 8-18,8-22 

length 8-22 

non-replaceable characters 8-23 

Output sheet entry 8-21 

replaceable characters 8-6,8-22 

rules for forming 8-22 
EDIT WORD OR CONSTANT entiy 8-21 

ending position (see "end position in output record") 
ENDING POSITION entry 8-20 
END key (see "display (DSPLY) operation") 
end of file . ... 

(see also "multifile processing") 

delimiter (alternate collating sequence) 2-6 

external indicators 3-13 

Pile Description sheet entry 3-S 

force (FORCE) operation use 7-23 
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end of file (continued) 

read (READ) operation use 7-24 

tape rewind 3-22 
END-OF-FILE CODE entry 3-9 
end-of-,1ob 

indicator 1-13 

(see also "indicators") 

operating' cycle 1-11 

processing 1-13 

total output operations 1-13 
end position in output record 8-4 

effect of edit code on 8-20,8-22 

in field names 8-22 

on *PLACF lines 8-16,8-20 

Output sheet entry 8-20 
end record 

alternate collating sequence table 2-6 

file translation tables 2-10 

source program 2-5 
ENDS entry 6-24 

FNDSR (end subroutine) operation code 7-22 
environment 

hardware 1-10 

operational H-1 

software H-1 , . , . ^ ^ . . „ . 

entries (see individual entries and "coding instructions"; 

entry (table or anray) 

(see also "tables"; "arrays") 

length of entry (Extension sheet) 4-4 

number of entries per record (Extension sheet) 4-14 

number of entries per table or array (Extension sheet) 4-15 

error messages 
format G-1 
operator responf>es to run- time messages H-1 

overlay 2 headej;' card scan G-3 

overlay 3 file description scan G-5 

overlay 4 file extension scan G-10 

overlay 6 input specifications scan G-1 4 

overlay 7 calculation specifications scan G-1 9 

overlay 8 output specifications scan G-22 ^ 

overlay 11 file extension/line counter generation G-26 

overlay 13 calculation generator G-27 

overlay 14 output generator G-30 

overlay 15 code formatter G-31 

responses by operator H-1 

run-time H-1 
European Convention date format 8-5,8-17 
examples of coding 

alphanumeric and numeric literals 7-2 

alternate collating sequence 2-7 

constant information 8-24 

look-ahead fields 6-18 

match fields 6-9 
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examples of coding: (continued) 

record types with identical fields 6-26 
report line-to-channel number relation 5-6 

spread cards (>-19 
exception (EXCPT) operation 7-23 
exception output 7-23,8-2 
exception records &-2 

(see also "EXCra operation code") 
EXCPT (exception) operation code 7-23 

overflow print Inf^ with EXCPT >15,B-2 
execute subroutine (eXSR) operation 7-22 
execution 

entering data during 7—24 

object program 1-11 

stage of object program (see "RKI IT System description") 

storage requircjd to execute 2-3 
execution time an'ay 

building via calculations 4-9,4—10 

definition 4-3 

Extension sheet 4-10 

format 4-6 

load ing 4-3 , 4-6 

sequence 4-17 

specifications 4-10 
executive routine (see "compiler executive routine") 
liXIT operation 7-27 

EXSE (execute subroutine) operation code 7-22 
EXTENSION CODE entry 3-16 
Extension Specifi(Dations Sheet 4-1 
external characters (file translation) 2-10 
external indicators (U1-U8) 

(see also "indicators") 

as field record relation indicators 6-30,7-15 

as output indicators 8-14 

assigning on Pile Description sheet 3-22 



general information 7-15 
with demand files 7-2^ 



. >5 

external linkage operations 7-26, F-1 

external subroutine linkage Fr-1 

Factor 1 

arithmetic operations 7-3 

debug operation 7-28 

move operationjs 7-6 

subroutine operations 7-21 
FACTOR 1 entry 7-34 
ifeictor 2 

arithmetic operations 7-3 

debug operation 7-28 

GOTO operation 7-17 

move operations 7-6 

sign process specification 2—8 

TAG operation 7-17 
FACTOR 2 entry 7-34 
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fetching the overflow routine 

general information 8-3 

Output sheet entry 8-10 
field 

alphanumeric 2-6 

binary 6-6 

control 6-7 

index 7-20 

key 3-5 

length 6-23 , ^^ ,^,.. 

look-ahead (see "look-ahead field"; 

match 6-27 
numeric 2-9,6-3,6-9 
numeric control fields 6-8 
packed decimal 6-4,6-5 
result field 7-37 
split control fields 6-9 
spread cards 6-2 
unpacked decimal 6-3 

zeroing 8-20 ^ o^ o -. 
field description entries 6-23,8-1 
field indicators 

assigning on Input sheet 6-32 n a n -ko 

controlling calculations and output 7-1,7-32 
FHaLD INDICATORS entry 6-32 
field length 

(see also "length"; 

compare operations 7—10 

key field 3-5 

relation to decimal positions 7-28 _ 
PIELD LOCATION entry (Input sheet; 6-23 
field name 6-7 

control fields 678 

cross-reference listing ^-\^ 

definition 6-7 

Input sheet entary 6-25 

length 6-7 

match fields 6-28 

OR relationship 6-25 

Output sheet entry 8-15 ^ ^ ^ ^ n^ a ^e: 

PAGE, PAGE1, PAGE2 special words 6-7,6-26,8-16 

*PLACE special word 8-16 

special word entries ^8-16 

split control field 6-9 

table name used as 4-10 

used as index 7-20 

valid RPG II field name (definition) 6-25 

with edit words 8-22 
PIELD NAME entry 

Calculations sheet 7-34 

Input sheet 6-25 

Output sheet 8-15 
field record relation 6-30,7-14 
nllD RECORD RELATION INDICATOR entry 6-29 



IwDEX PAGF 18 



file 

(see also "eM-of-f lie" ; "File Description Specifications 
Sheet"; "multifile processing"; and individual file tj'pes) 

ADDROUT 3-4 

allocation of space D-1 

array 3-4 

chained 3-3,3-13 

definition 3-1 

demand 3-4 

designations :5-3 

direct (see "direct file") 

disc (see "indcjxed files"; "relative files"; "disc files") 

display 3-2 

indexed (see "Indexed file") 

input 3-2 

organization 3-5 > 3-1 3 

output 3—2 

primary 3-3 

record address 3-4 

relative 3-'5,:5-13 

secondary 3-3 „ 3- 1 3 

sequential (see "sequential file") 

SPECIAL E-2 

table or array 3-4 

types 3-2,3-8 

update 3-2 
file addition "^22 

(see also "adding records to files") 

Pile Description sheet entry 3-22 

relation to file type ^itry 6-13 
PILE ADDITION entiy 3-22 

file and record type identification entries 6-13 
file condition 3-23 

(see also "external indicators") 

Pile Description sheet entry 3-23 
PILE CONDITION entry 3-23 
Pile Description Specifications Sheet 3-1 
file description £;can error messages G-5 
file designation 3-3 

file extension scsin error messages G-10 
file extension/line counter generation error messages G~26 

PILE PORMAT entry 3-10 
filename 

cross-reference listing 2-12 

"from" filename (Extension sheet) 4—12 

Input sheet entry 6-13 

length 3-7 

Line Counter sheet entry 5-3 
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filename (cxjnt'd) 

Output sheet entry &-7 

pre-execut ion time table and array filenames 5-P 

*to" filename (Eictenslon sheet) 4-13 

valid RPG II filename (definition) 3-7 
PILENAME entry 

Pile Description sheet 3-7 

Input sheet 6-13 

Line Counter sheet 5-3 

Output sheet 8-7 
file organization 3-5 #3-1 3 
FILE ORGANIZATION ENTRY 3-14 
file processing (see "processing methods") 
file translation 

Control Card entry (col. 43) 2-10 

definition 2-10 

format of tahle records 2-11 

placement of table in source deck 1-7 

spec if icat ions 2-10 
PILE TRANSLATION entry 2-10 
file types 3-2 

(see also "file") 
first page (IP) indicator 

(see also "IP indicator"; "ii.dicaturs, fli^t page") 

assignment on Output sheet 8-14 

forms positioning 2-9 

general information 7-16 

restriction with record types 8-14 

summary tables B-2,B-3 
fixed-length format 3-11 
floating dollar sign 

in edited fields 8-5 

with edit code S-22 
ilowchart, RKJ II program logic 

detailed A-1 

general 1—2 
PORCE (force) operation code 7-23 

comparison with READ operation code 7-24 
format 

alternating (see "related tables and arrays"; "arrays"; "tables") 

date field 8-5 

error message 0-1 

save area with EXIT operation 7-27 

stored data 3-11 
formatting edit words 8-22 
PORM LENGTH (PL) OR CHANNEL NO. entiy 5-4 
PORl^S POSITIONING entry 2-9 
form type (see "type of form") 
"PROM" PILENAME entry 4-12 
full table or array 

definition 4—4 

number of entries per table or array 

(Extension sheet) 4-15 
function of RPG II 1-1 
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general object program logic 1-11. ., ^ . „. 
generation of oDject program (see "compilation"; 
glossary (definition of terms; C-1 
GOTO (go to) operation code 7-16 

(see also "TAG") 

use with subroutines in calculations 7-16 
group operations (see "total operations") 

HALF-ADJUST entry 7-36 
halt indicators (H0-H9) 

(see also "indicators") 

assigning on Input sheet 6-17 

Calculation sheet uses 

operation indicators 7-33 
resulting indicators 7-35 

field indicator (Input sheet) 6-32 

field record reflation 6-29 

general description 7-14 

Output sheet use 8-13 

record identifying indicator 6-17 

summary tables E— 2,B-3 
header card (Control Card) 2-1 

spread cards 6-2 
header card scan error messages G~3 
heading (H) output records 8-2 
HIGH-LEVEL DIRECTORY SIZE entry 3-22 
housekeeping tasks 1-11 
H0-H9 (see "halt indicators"; "indicators") 

identification 

of programs (see "program idaitification entries") 

of record types 6-19 
IGNORE ARITHMETIC OVERFLOW entry 2-13 
index 

array 4—2 

(see also "indexed file") 
as field name 7-20 
File Description aitry 3-21 
in searching 7-20 

definition 3-5 
INDEX BUFFER SIZE entry 3-21 
indexed file 

addition of records 3-22,7-26 

ADDROUT processing 3-14 

contents 5-5 

file addition entry 3-22 

general information 3-5 

key 3-5,3-13 

key field starting location 3-16 

loading 3-5 
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Indexed file (cont d) 

processing 3-13»3-14,7-25 
random processing 3-19 
seaxching 7-20 
track addresses 3-19 
INDICATOR entry 

Calculation sheet 7-33 
Output sheet 8-14 
indicator cross-reference list 2-12 
ind icat ors 

(see also "DEBUG operation code"; individual indicators) 
blank condition 6-33 
Calculation sheet 

AND relationship of indicators 7-32 

control level (cols, 7-8) 7-31 

operation indicators (cols. 9-17) 7-33 

resulting indicators 7-39 

summary tables B-2,B-3 

field indicator 6-32 

Output sheet 8-13 

summary tables B-2,B-3 
control level (L1-L9) 

assigning on Input sheet 6-27 

Calculation sheet entries 7-31 

field indicator 6-32,7-15 

field record relation 6-31 

turning on or off 7-15 
cross-reference listing of 2-12 
end-of-job (LR) 

(see also "last record indicator") 

Calculation sheet use 7-31 

field indicator 6-32 

input sheet use 6-15,6-32 

operation indicator 7-33 

Output sheet use 8-14 

summary tables B-2,B-3 

total output operations 1-13 
external (U1-U8) 

assigning on Pile Description sheet 3-23 

Calculation sheet entry 7-25 

conditioning Indicators 7-15 

field indicator 6-32,7-14 

field record relation 6-30,7-15 

general description 7-15 

operation indicator 7-1 5» 7-33 

Output entries 8-14 

summary tables B-2,B-3 

with demand file 7-25 
field (01-99) 

assigning on Input sheet 6-32,7-14 

Calculation sheet uses 7-40 
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indicators (continued) 

general description 6-32 

Output sheet uses 8-14 

suaimary tables B-2,B-3 

turned on or off "before GOTO 7-17 
field record relation 6-29,7-14 

file conditioning (U1-U8) (see "external indicators") 
File Description sheet 

file conditioning 3-23 

overflow indicators 3-15 
first page (IP) 

assigning on Output sheet 8-13 

field indicator 6-32,7-16 

operation indicator 7-16,7-34 

Output sheet use 8-14 

restriction with output fields 8-14 

summary tabl.es B-2,B-3 
general description 7-14 
halt (H0-H9) 

assigning on Input sheet 6-15,6-29,6-32 

Calculation sheet use 7-33,7-39 

controlling error conditions 6-33 

detail output operations 7-13 

field indicsitor 6-32 

field record relation 6-30,6-31 

general description 7-14 

operation indicator 7-33 

Output sheet use 8-14 

summary tables B-2,B-3 
Input sheet 

control level 6-27 
• field indicator 6-32 
■ field record relation 6-29 

record indicator 6-15 

summary taW.es B-2,B-3 
last record (stse "indicator, end-of-job"; "last record 

indicator") 
level zero (LO) 

assigning on Calculation sheet 7-31 

operation indicator 7-33 

Output sheet use 8-14 

summary tables B-2,B-3 
matching record (MR) 

(see also "multifile processing"; "match fields") 

assigning msitch fields 6-28 

Calculation sheet uses 7-33,7-39 

field indicjitor 6-32 

field record relation 6-30 

general information 7-30 

operation indicator 7-33 

Output sheet uses 8-14 

summary tables B-2,B-3 

turned on or off before GOTO 7-17 
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indicators (continued) 
minus condition 6-33 
numeric 7-H 
operation 7-14,7-33 
output 8-14 

AND and OR lines 8-8 

as field name 8-15 

overflow indicators 8-13 

to condition output fields 7-14 
overflow (OA-OG,OV) 

(see also "overflow indicator") 

assigning on File Description sheet 3-15 

Calculation sheet entries 7-33 » 7-39 

conditioning 7-15 

fetching the overflow routine B-3,8~10 

field indicator 6-32,7-14 

general information &-2 

Line Counter specifications 5-4 

operation indicator 7-14,7-34 

Output sheet entry S-14 

restriction with exception lines 7-23,8-2 

result indicator 7-14 

summary tables B-2,B-3 

turning on or off 7-14 

with GOTO 7-17 
plus condition 6-32 
record identifying (01-99) 

ij^signing on Input sheet 6-15 

field indicator 6-32 

field record relation 6-29 

Input sheet use 7-14 

Output sheet use 8-14 

summary tables Ii-2,B-3 

with GOTO 7-17 . 
referencing in EXIT and RLABl operations 7-27 
resulting (01-99) 

Calculation sheet entries 7-14,7-33 

field indicator 6-32 

operation indicator 7-33 

Output sheet use 8-14 

summary tables B-2,B-3 

use with CHAIK operation code 7-25,7-39 

use with GOTO operation code 7-17 

use with LOKUP operation code 7-18,7-39 

use with READ operation code 7-24,7-39 

use with TESTE operation code 7-12,7-39 
setting (SETON; SETOF) 7-13 
summary tables B-2,B-3 
with GOTO operation 7-17 
with RPG II label (RLABL) operation 7-27 
with test bit (TESTE) operation 7-12,7-39 
valid indicators (table) B-2 
zero or blank condition 6-33 
indicator setting operations 7-13 
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indicators specified with RLABL 7-27 

input file 3-2 

conditioning 3-23 
end-of-file code 3-9 
file condition entry 3-23 
look-ahead fieldjs 6-2 

match fields 6-28 

sequence entry 

File Description sheet 3-10 
Extension sheet 4-17 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-15,3-19 

"to" filename entry 4-13 
input operations in object program operating cycle 1-11 
input /output device (see "device") 
input/output, programmed control of 7-23 
input specification scan error messages G-14 
Input Specifications sheet 6-1 

inserting new records (see "adding records to a file") 
integer digits in arithmetic operations 7-3 
internal character (file translation) 2-10 
INVERTED PRINT entry 2-4 

inverted print option 2-4,8-5 
item 

editing array items 4-10 

number of items on each record entry 4-14 

numeric format 4-16 

processing 4-9 .^. ^. . _, 

referencing via calculation specifications 4-o 

iterated fields 8-4 

JCL (see "Control language Statements") 

K (1,024 bytes of main storage) 1-10,2-3 

Jfgy 3—5 \ 

(see also "indexed files": "record address files"; "record key") 

random processing by 3-12,3-13 

sequential processing by (indexed file) 3-13,7-25 
keyboard (see "console") 
key field 3-5 

definition 3-5 , «^ ^^\ , -, 

length (File Description cols. 29-30) 3-13 
starting location (Pile Description cols. 35-38) 3-16 

labels 3-21 

last record indicator 

(see also "indicator, end-of-job") 

Calculation shecjt use 7-25 

Output sheet use 8-14 , , ^> /- -.c 

record identifying indicator (Input sheet) 6-15 

summary tables B-2,B-3 
with tables and arrays 4-9 
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leading zero suppression (see "zero suppression") 
length of 

array name 4-2 

block (see "tiLock length") 

date field 8-17 

edit word 8-22 

field 

arithmetic operations 7-3 
compare operations 7-10 

field name 6-7 

filename 3-7 

form (number of lines per page) 5-4 

item 4-15 

key field (File Description cols. 29-30) 3-13 

numeric literals 7-2^ , ^^. ^ ^, 

record address field (File Description cols. 29-30) 3-1. 

record (File Description cols. 24-27) 3-11 

result field (Calculations cols. 49-51) 7-3f 

table 7— 1 9 
LENGTH OF BLOCK entry 3-11 
LENGTH OF ITEM entry 4-15 

LENGTH OF KEY FIELD OR RECORD ADDRESS HELD entry 3-13 
LENGTH OF RECORD entry 3-11 

(see also "record length") 
level, control (see "control level") 
level zero indicator (see "indicator, level zero") 
library, object 2-3 
limits processinf 3-13,7-25 

(see also "Indexed file"; "record address file") 
Line Counter Specifications Sheet 5-1 

carriage control type specification 2-12 
LINE NO. entry 5-5 
lj.ne number 

coding lines 2-2 

lines available entry 5-3 

number of lines per page 5-1,5-3 

overflow line 5-1 
LINE NUMBER entry 

Calculation sheet 7-30 

Control Card sheet 2-2 

Extension sheet 4-11 

File Description sheet 3-7 

Input sheet 6-12 

Line Counter sheet 5-2 

Output sheet 8-7 
line, overflow 8-3 

LINES AVAILABLE OR LINE NO. entry 5-3 
line-to-channel number relation 5-6 
linkage 

normal 7-27, E-1 

of special files E-2 
linkage editor 

CLS specifications F-3 

description 1-10 
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list of messages ty overlay number G-1 
literal (Calculations sheet) 6-2 

(see also "constant") 

examples 6-2 

cpecifying bits 7-11 

used as index for arrays 7-20 
loading 

arrays 4—3 » 4-5 » 4-6 
considerations 4—3 

direct files 3-12,7-26 

indexed files 3-5 

tables 4-3,4-5,4-6 
load module 1-10 

location of field (input sheet entry) 6-23 
logic of RPG II object program 

detailed A-1 

general 1-11 
LOKUP (lookup) operation code 7-18 

assigning indicators 7-18 

referencing found table items 4-9,7-20 

resulting indicators with 7-1 B , « r, ^/^ 

searching started at a particular array item 4-8,7-^?u 

with an array 4-2,4-8,7-20 

with one table 4-2,4-9,6-16,7-19 

with two tables 4-9,6-16,7-19 
look-ahead fields ^^-2,6-17 

example 6-18 

Input sheet entries 6-17 

specifications 6-M 

with primary and secondary files f)-2 
lookup operation (see "I/)KUP") 7-18 

IR (last record) indicator ^ . ,. . ^ . * «ii\ 

(see also "last record indicator"; "end-of-^ob indicator"; 

Calculation sheet use 7-32,7-33,7-39 

Output sheet use 8-13 

record identifying indicator (Input sheet) 6-16 

summary tables J3-2,B-3 

total output operaticais 1-13,7-13 
ID (level zero) indicator 

(see also "indicatorrs, level zero") 

assigning on Calculation sheet 7-32,7-33,7-39 

Output sheet use 8-13 

summary tables E-2,B-3 
L1-L9 (control level) indicators . 

(see also "control level indicators"; "indicators, control level"; 

as field record relation 6-29 

assigning on Input sheet 6-9,6-27 

Calculation sheet use 7-13 

Output sheet use 8-13 

record identifying indicator 6-16 

resulting indicators (Calculations sheet) 7-39 

summary tables JB-2,B-3 
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machine 

code 2-11,6-3 

configuration 1-10 

requ irement s 1-10 
machine language program 1-3 
main storage (memory; 

amount required for decimal representation in the computer 6-5 

storage needed to execute (Control Card entry) 2-3 
match fields 6-10 

(see also "multifile processing") 

assigning (rules) 6-28 

end-of-f ile code 3-9 

example 6-29 

field record relation 6-30 

Input sheet entry 6-27 

used for multifile processing 6-10 
used for sequence checking 6-27 

sequence checking >-i 0,6-27 

sequence entry (file description) 3-10 
MATCH FIELDS entry 6-27 
matching level identifier (M1-M9) 6-11 
matching record indicator (MR) 6-11 

(see also "indicators") 

as field record relation 6-31 

assigning match fields 6-28 

Calculations sheet entry 7-33,7-39 

detail calculations 1—13 

Output sheet entry 8-13 

when turned on 6-10,6-11 
matching records 6-10 

(see also "match fields"; "matching record indicator"; 
"end of file") 

end-of-file code 3-10 
Memorex devices 3-18,3-19 

memory required for packed decimal representation 6-5 
method (mode) of processing (File Description entry) 3-12 
MHHZO (move high to high zone) operation code 7-9 
HHLZO (move high to low zone) operation code 7-9 
MINUS entry 6-33 
minus sign (see "sign") 

MLHZO (move low to high zone) operation code 7-10 
MLLZO (move low to low zone) operation code 7-9 
mode of operation (see "compiler, design") 
mode of processing 3-12 

(see also "processing mode") 
modifying contents of tables and arrays 4-8 
module, load 1-10 
MOVEL (move left) operation code 7-7 

summary table B-6 
MOVE (move) operation code 7-7 

summary table 1^6 
move operations 7-6 

sign process specification 2-8 
move remainder (MVR) operation 7-5 
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move zone operations 7-9 

MR (matching record indicator) ^ . ^. ^ „\ 

(see also "indicators"; "matching record indicator") 

field record relation 6-29 

summary tables B-2,B-3 

use with match fields 6-28 
multifile processing 6-10 , . ^. ^ „\ 

(see also "end of file"; "matching record indicator") 

end-of-f ile code 3-9 

file designation entry 3-9 

general discussion 6-10 

match fields 6^10 

assigning match fields (rules) 6-27 
Input sheet entry 6-27 

selection of records (input) 6-10 

with ipRCE operation 7-23 
MULT (multiply) operation code 7-5 

summary table B-6 
multiply (MULT) operation code 7-5 
MVR (move remainder) operation code 7-5 

(see also "DIV operation code") 
M1-M9 entry (match fields) 6-27 

N (not) (see "NOT entries"; "NOT ON entry") 
name 

array (Extension sheet entry) 4-2 
field 6-7 

Calculation sheet entry 7-34 
Input sheet entry 6-25 
Output sheet entry 8-15 
program (see "program identification entry") 
result field 7-38 
subroutine 7-27 

table (Extension sheet entry) 4-2 
table or array name entry 4—14 
negative balance (OF) (see "edit word") 

negative numbers 6-22 , . ^ ^ .,\ 

^see also "packed or binary field"; "character structure") 

formation in punched card 6-22 

packed decimal format 6-4 

packed decimal representation in the computer 6-5 

unpacked decimal format 6-3 
non-standard labels 3-21 
no overflow processing 8-2 
normal collating seo.uence 2-5 
NOT entries 6-20 
NOT ON entries 

Calculation sheet 7-33 

Output sheet 8-13 
NUMBER entry 6-14 
numbering lines on coding sheets 2-2 
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numbering report pages (PAGE special word) 

Input sheet entry 6-26 

Output sheet entry 8-16 

restarting nuiiterlng sequcaice 6-27 
number (Input sheet col. 17) 6-14 
number, negative (see "ne^tive number") 
number 

of entries per record (Extension sheet) 4-14 

of entries per table or ai-ray (Extension sheet) 4—15 

of replaceable characters in an edit word 8-22 
NUMBER OF ITEMS IN TABLE OR ARRAY entry 4-15 
NUMBER OF ITEMS ON EACH RECORD entry 4-14 
numeric characters (see "chaaraicter"; 
numeric field 

convers ion 6-3 , 6-26 , 7-6 

date fields 8-5 

format 6-3 
binary 6-6 
packed decimal 6-4 
unpacked deciinal 6-3 

length (see "length") 

literals 7-2 

match fields 6-28 

moving 7-6 

OR relationship 6-14,6-25 

PAGE fields 8-16 

sign 6-3 
niameric field (continued) 

sign process specification 2-8 

testing 6-32 

with edit words 8-22 
numeric indicators 7-14 
numeric literals 7—2 

Calculation sheet uses 7-2 

example 7-2 

inverted print specifications 2-4 

msjclmum length 7-2 
numeric table or array 4-15 

OA-OG, OV (overflow indicators) 

(see also "overflow"; "overflow indicators"; "indicator, overflow' 

assigning on Pile Description sheet 3-15 

Calculation sheet use 7-33,7-39 

Output sheet use 8-13 

when turned on 5-4 
object library 2-3 
object module 1-10 
OBJECT OUTPUT entry 2-3 
ob;3ect program 

(see also "RPG II system description") 

code-formatter phase of compiler 1-9 

description 1-11 

disposition from object library 2-3 

execution 1-11 
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object program (continued) 

Feneration (see "compilation") 

identification (see ^'program identification entry ; 

listing 1-10 

logic 

detailed /V-1 
general 1-1 1 

output 8-1 

preparation for execution 1-10 

size 1-10 

storage 1-10,2-3 
operating mode (s€je "compiler design") 
operation 

arithmetic 7-3 

Calculation sheet entry 7-35 

detail 1-11 
summary tables B-6 
with individual array items 4-8 
operational environment H-1 

operation codes 7-3 ' ^. , » 

(see also "operation"; individual operation codes; 
arithmetic 7-3 
ADD (add) 7-4 
DIV (divide) 7-5 
MULT (multiply) 7-5 
MVR (move remainder) 7-5 
SQRT (square root) 7-5 
SUB (subtract) 7-4 
XJOOT (crossfoot) 7-6 
2;-ADD (zero and add) 7-4 
Z-SUB (zero and subtract) 7-4 
binary field operations 7-11 
BITOF (set bit off) 7-12 
BITON (set bit on) 7-11 
TESTE (test bit) 7-12 
branching operations 7-16 
GOTO (go to) 7-16 
TAG (tag) 7-17 ^ _ 

compare and testing operations 7-10 
CGMP (compare) 7-10 
TESTZ (test zone) 7-11 
debug operation 7-28 

DEBUG (debug) 7-28 
external linka.ge operations 7-26 
EXIT 7-27 
RLABL 7-27 
ULABL 7-28 
lookup operation 7-18 

LOKUP (lookup) 7-18 
move operations 7-6 
MOVE (move) 7-7^ 
MO VEX (move left) 7-7 
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opei^tion codes (continued) 
move zone operations 7-9 

MHHZO (move high to high zone) 7-9 

MHLZO (move high to low zone) 7-9 

MLHZO (move low to high zone) 7-10 

MLLZO (move low to low zone) 7-9 
programmed control of input and output 7-23 

CHAIN (chain) 7-25 

DSPLY (display) 7-24 

EXCPT (exception) 7-23 

FORCE (force) 7-23 

READ (read) 7-24 
setting indicators 7-13 

SETOP (set off) 7-13 

SETON (set on) 7-13 
subroutine operations 7-21 

BEGSR (begin subroutine) 7-22 

ENDSR (end subroutine) 7-22 

EXSR (execute subroutine) 7-22 
summary table B-6 
OPERATION entry 7-35 
OPERATION INDICATORS entries 7-32 
operator responses to error conditions H-1 
OPTION entry 6-15 
option (input sheet col. 18) 6-15 
OR entry 8-8 
OR relationship 

(see also "AN and OR lines"; "AND and OR lines") 
Calculation sheet 7-32 
Input sheet 

example 6-25 

fields in OR relationship 6-25 

field name 6-25 

field record relation 6-30 

number 6-14 

option 6-15 

record codes 6-20 

record indicators 6-22 

stacker select 6-22 
Output sheet 

output indicators 8-13 

stacker/overflow 8-10 
stacker selection 6-22,8-10 
outjwt 

definition 8-1 
detail 8-2 
exception 8-2 
heading 8-2 
table and array 4—9 
total 1-13 
output device (see "device") 



INDEX PAGF 32 



output fields 

entering fields; on specifications sheet 8-15 

field name ent3*y 8-15 

repeating (*PLACE) 8-16 
output file 

conditioning j5-23 

definition 3-2 

extension code 3-16 

file condition entry 3-23 

sequence entry (file description) 3-10 

special device support 3-19 

standard device assignment 3-18 

substitute device assignmcsnt 3-13,3-19 

table or array 4-9 

"to" filename €jntry 4—13 
Output-Format Specifications Sheet 8-1 
output generator error messages G-30 
output indicators (Output sheet enti'y) 6J-13 

AND and OR lines 8-8 

restarting pagcj numbering 8-16 

total output operation 1—13 
OUTPUT INDICATORS entries 8-13 
output specifications scan error messages G-22 
overflow 

arithmetic 2-13 

assigning overflow line 8-3 

automatic 5-5 

fetching 8-3,^3-10 

general conside^rations 3-15,5-4 

normal processing 8-3 

printer file 8-9 

printing (with EXCPT operation) 3-15 

routine 8-3 

spacing and skipping 3-15,5-5,8~3 

steps done after overflow 5-4 

use 5-4 

with SETON and SETOF 3-15 
overflow indicator 

(see also "overflow") 

assigning on Pile Description sheet 3-15 

Calculation sheet use 7-33,7-39 

general description 7-14 

in spacing 8-10 

Output sheet use 3-15,8-2,8-10 

summary tables B-2,B-3 

when turned on 5-4,7-17 

with EXCPT operation code 3-15,^3-2 

with GOTO 7-17 

with SETON and SETOF 3-15 
overflow line 

channel assignment 5-6 

description 5-4 
OVERFLOW LINE (OL) OR CHANNEL NO. entry 5-5 
OVERFLOW LINE NO. OR LINE NO, entry 5-4 
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overlay error messages (see "error messages") 

packed decimal coding 6~5 
packed decimal format 6-4 

(see also "packed or binary fields") 
packed decimal representation 6-5 
PACKED OR BIWARY jriELD entiy 8-21 

Extension sheet 4-16 

Input sheet 6-23 

Output sheet 8-21 
packed or binary fields 

(see also "fields"; "binary format"; "packed decimal format"; 
"unpacked decimal format") 

Extension sheet entry 4-16 

Input sheet entry 6-23 

Output sheet entry 8-21 
page count in forms positioning 2-9 

?age field (see "PAGE MJ^fEER entry"; "special words") 
AGE NUMBER entry 

Calculations sheet 7—30 

Control Card sheet 2-2 

Extension sheet 4-11 

Pile Description sheet 3—6 

Input sheet 6-11 

Line Counter sheet 5-2 

Output sheet J3-6 

page numbering 8-4 

restarting for output 6-27,8-16 

specifications sheets 2-2 
PAGE, PAGE1, PAGF2 8-4,8-16 

(see also "page numbering"; "special words") 

field names on Input sheet 6-26 
psararaeters 

CLS //PAR card r-2 

SPECIAL file E-2 
phases of the compiler 1-9 

*PLACE special word (see "*" on first page of index) 
PLUS entry 6-32 
PORTION entries 6-21 
POSITION entries 6-20 
positioning printer forms 2-9 
positive number 6-22 

formation in punched card 6-22 

packed decimal format 6-4 

packed decimal representation in the computer 6-5 

unpacked decimal format 6-4 
pre-execution time tables and arrays 

definition 3-4,4-3 

format 4—6 

"from" filename entry 4-12 

loading 4-3,4-6 

sequence 4—17 

specifications 4—10 
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primary file , , ..x 

(see also "multifile processing"; "match fields") 

conditioning 3-5 

end-of-f ile code 3-9 

file condition entry 3-23 

file designation entry 3-3 

processing 3-12,3-13.6-10 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment >-18,3-19 
printable charactcjrs 6-22 
print chart coding form 1-14 
printer 

(see also "can-iage control tape"; "console") 

assignment 3-18*3-19 

block length I>-1 

device names 3-17 

file (see "print file"; "output file") 

forms alignment! 2-9 
print file 

(see also "output file") 

extension code 3-16 

line counter si)ecifications 5-1 

page numbering 8-4 
print lines, numb€;r on page or form 5-1,3-3 
processing methods; 3-13 

(see also individual file types; individual processirg methods) 

consecutive 3-12,3-13,7-25 

direct file load 3-12,7-26 

multifile (see "multifile processsing") 

output records 8-2 

overflow 8-3 

random by ADDROUT file 3-13 

random by key 3-13 

random by relative record number 3-13 

sequential by key 3-13,7-25 

sequential witliin limits 3-13,7-25 
PROCESSING MODE entry 3-12 
program 

compilation (see "compiler") 

cycle (see "RPG II System description operating cycle") 

indicators (suiranary tables) B-2j,B-3 

logic (see "program logic") 

name (see "pro^^ram identification entry") 

object (see "object program") 

source (see "source program") 
PROGRAM IDEKTIPICi^TIOU entry 

Calculation sheet 7-41 

Control Card sheet 2-14 

Extension sheet 4-18 

Pile Description sheet 3-23 

Input sheet 6-34 

Line Counter sheet 5-7 

Output sheet ^3-24 
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program logic ^ 

(see also "RPG 11 System description") 

detailed A~1 

general 1-11 
programmed control of input and output 7-23 
punch 

(see also "device") 

assignment 3-18,3-19 
punching on cards 6-3,6-21,8-21 

RA file (see "record address file") 
random processing 3-12,3-13 

(see also "processing methods") 

index files 3-22 

relative record number 3-13 
READ (read) operation code 7-24 

(see also "demand file") 

assignment 3-18,3-19 

device assignment 3-18,3-19 . 

record addition to files (see "'adding records to files") 
recoixl address file 3-4 

(see also "ADDROUT file") 

conditioning 3-23 

definition 3-4 

end-of-file code 3-9 

extension code (Pile Description col. 39) 3-16 

Extension sheet entries 4-12,4-13 

file condition entry 3-23 

"from" filename entry 4—12 

processing 3-13 

record address field 3-13 

record address type (File Dejscription col. 31) 3-14 

standard device assignment 3-18 

special device support 3-19 

substitute device assignment 3-18,3-19 

"to" filename entry 4-13 

record address typ€; 3-14 
(see also "record type") 

RECORD ADDRESS TYPE entry 3-14 

RECORD CODE CHARACTERS entry 6-19 
record description entries 8-1 

definition 8-1 
record identifying indicators &-2 

(see also "indicators") 

AND and OR lines 6-25 

assigning on Input sheet 6-15 

used for field record relations 6-29 

record indicator 6-1 „. , , ..v 

(see also "indicators"; "match fields") 

general discussion 6-16 

RECORD INDICATOR entry 6-15 

record key 3-5,3-13 
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record length 5-11 

(see also "length") 

variable-length records 3-11 
record relation (see "field record relation") 
record selection (input) 

in multifile processing 6-10 

with PORCE operation code 7-23 
record type 

(see also "record address type") 

coding for identical types (example) 6-26 

field indicators 6-32 

field record relation 6-30 

fields 6-7 

identification 6-19 

match fields 6-28 

OR relationship 6-25,3-9 

output records 8-2 ,8-8 

processing 6-2, 6-1 y 

sequence checking 6-13 
reference tables I<r-^ 
referencing 

array items via calculations A^F 

arrays 4-2,4—8 

table items via calculations 7-20 

tables 4—9 
register usa^e with EXIT 7-27 
related tables and arrays 4-10.4-14 

(see also "tables"; "arrays") 
relating report lines to channel nuB»bers 5-5 
relative files 

definition 3-5 

file addition entry 3-22 

loading 3-14 

processing 3-13,3-14 
relative record number . 

(see also "CHAIN operation code"; "relative files") 

binary 3-4 

definition 3-5 

random processing ly 3-13 

with direct files 7-26 
remainder (see "MVR operation code") 
repeat ing 

operations (see "GOTO and TAG") 

output fields (*PLACE) 8-4 

output lines (exception output) 8-2 
replaceable characters 8-6 

general discussion 8^22 
report dates 8-5 

generation 1-13 

line-to-channel number relation 5>-5 
resetting fields to blanks or zeros 8-20 
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result field 

arithmetic operations 7-3 
detiug operation 7-28 
move operations 7-6 
sign process specification 2-8 
UDATE, UMOWTH, UDAY, UYEAR use 7-27 
using table or array name 4-8,7-20 
RESULT FIELD entry 7-37 
RESULT FIELD LENGTH entiy 7-38 
resulting indicators 

Calculation sheet entry 7-39 
general discussion 7-39 
with CHAIN 7-25,7-39 
with LOKUP 7-15,7-39 
with READ 7-24, '^-39 
with TESTE 7-12,7-39 
RESULTING INDICATORS entry 7-39 
RLABL operation 7-27 

rounding numbers in result field (half-adiusting) 7-39 
RPG II label (RLABL) operation code 7-27 
RKf II System description 
analysis stage 

coding specifications sheets 1-5 
definition 1-3 

organizing job requirements 1-5 
punching the source ra-ogiram deck 1-6 
steps m processing flow 
definition of stejxs 1-3 
detailed description 1-5 
illustration 1—2 
applications 1-1 
bit combinations 2-8 
compilation stage 
definition 1-3 
error correction 1-10 
initiating compilation 1-10 
minimum mach'Lne configuration 1-10 
object program storage 1-9 
source program compilation 1-9 
steps in processing flow 
definition of steps 1—3 
detailed description 1-9 
illustration 1-2 
time requirement 1-10 
definition 1-1 
execution stsjge 
definition 1-3 
object program execution 1-11 
program logic segments 1-11 
report generation 1-13 
steps in processing flow 
definition of steps 1-4 
detailed description 1-4 
illustration 1-2 
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RPG II System description (continued) 
operating cycle 

alteration for' I/O operations 7-23 

description 1-11 

illustration 1-12 
operating steps 1-3 
overview 1-1 
program logic 1-11 
purpose 1-1 

save area format with EXIT 7-27 
searching 

(see also "LOKUP operation code") 

single table seai-ching 7-19 

with two tables involved 7-19 
search word (see "LOKUP operation code") 
secondary file . 

(see also "multifile processing"; "match fields") 

cond i t ion ing 3-23 

end-of-file code 3-9 

file condition entry 3-23 

file designation entry 3-3 

processing 3-12,3-13,6-10 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-1 B, 3-19 
selection of records on input 6-10 

(see also "multifile processing") 
sequence 

(see also "sequence checking") 

assigning numbers 6-14 

collating (see "collating sequence") 

error 6-15 

Extension sheet entry 4-17 

File Description sheet entry 3-10 

Input sheet entry 6-13 

record type 6-14 

source sequence checking 2-13 
sequence checking 

collating sequence 2-5 

compare operations 7-10 

control card entry 2-13 

Pile Description sheet entry 3-10 

input records 6-13 

LOKUP operation 7-19 

using match fields (M1-M9) 6-28 
sequenced group 6-14 
SEQUENCE entry 

E'xtension sheet 4-17 

jile Description sheet 3-10 

Input sheet 6-13 
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sequential file 

adding records 3-22,7-26 

definition 3-6 

File Description chart 3-13 

loading 3-14 

processing 3-13,3-14,7-25 
sequential processing 

by key 5-13,7-25 

within limits 3-13,7-25 
SETOF (set off) operation code 7-13 
SETOn (set on) operation code 7-13 
setting indicators 7-13 
short table or array 4-4 
sign 

binary format 6-6 

forcing 2-8 

in edited fields 8-5,8-23 

minus 8-5,8-23 

move left operation 7-7 

move operation 7-7 

negative fields 8-5 

numeric field 6-3,8-15 

numeric literals 7-2 

packed decimal format 6-4 

sign process specification 2-9 

unpacked decimal format 6-3 

valid signs 2-8 
SIGN PROCESS entry 2-8 
size 

high-level directory 3-22 

index buffer 3-21 
SKIP entry 8-12 
skipping calculations using GOTO 7-16 

skipping operations 

([see "branching operations") 
skip specification 

automatic skipping to top of forms 8-3 

carriage control tape 2-14,8-10 

Output sheet entry 8-12 

with space specification 8-12 
soiorce deck 

card arrangement 1-6 

contents 1-4 

control card 2-1 

creation 1-1, 1-6 

illustration 1-7 

in analysis stage 1-4 

in compilation stage 1-4 

initiating the compilation process 1-10 

translation to machine instructions 1-3 
source program 

compilation 1-9 
creat ion 1-1 , 1-6 
ending record 2-6 



INDEX PAGF 40 



source program (continued) 

error correction 1-10 

size 1-10 
SOURCE SEIQUENCE CHECK entry 2-13 
SPACE entry 8-10 
spacing 

automatic 2-13 

line counter specifications 5-1 

line spacing 8-10 
special characters definition C-1 

in edited fields 8-5 
SPECIAL (device entry) 3- IS 
special device support 3-18 
special file 3-20 
special file linkage E-2 
special file parameter list E-2 
special words 

(see also individual words) 

Input sheet use 6-26 

Output sheet use 8-16 

PAGE, PAGE1, PAGE2 8-16 

♦PLACE 8-16 

UDATF, UDAY, UMONTH, UYEAR 8-17 
specifications 

Calculation 7-30 

Control Card 2-1 

Extension 4-11 

Pile Description 3-6 

general description and ordering of 1-5 

Input 6-11 

Line Counter 5-2 

Oi^t;put-Format 8-6 
specifications sheet 

arrangement 2-2 

definition 1-5 

functions 1-6 
split control fields 6-8 

format 6-9 

used with field record relation 6-30 
spread cards 6-2 

example 6-19 

specification 6-18 

trailer records 6-2 
SQRT (square root) operation code 7-5 

negative square root halt 7-6 
SR (see "subroutines") 
STACKFJ?/OVERFLOW entry 8-9, , 
standard device assignment (table) '5-1 P 
standard form length (printer) 5-4 

device entry 3-17 
standard system linkage E-1 
storage allocation 2-3, D-1 
STORAGE NEEDED TO FJCECUTE entry 2-3 
stored-data format 3-11 
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structure of characters 6-3 

(see also "collating sequence"; "character") 
SUB (subtract) operation code 7-4 
subroutine links^e E-1 
subroutine operations 7~21 
subroutines in calculations 7-21, 7-32 

control level entry (SR) 7-'51 

EXIT with subroutines 7-27 

GOTO with subroutines 7-22 

operation codes 7-22 

RLABL .with subroutines 7-27 

UlABL with subroutines 7-28 
summary tables 

collating sequence B~1 

disc file record retrieval methods 3-13 

edit code functions 8-19 

edit codes B-8 

edit code table from Output sheet S-17 

indicator specifications B-2 

inverted print 2-4 

standard device assignment 3-18 

substitute device assignment 3-19 

valid indicators B-2 

valid operation codes B-6 
substitute device assignment 3-18 
suppressing leading zero (see "zero suppression") 
SUPPF?ESf SKIP TO CHANNEL 1 entiy 2-12 
syn1:ax phase of compiler 1-9 
system linkage E-1 

TABLE entries 4-4 
table files 

(see also "array files") 

extension code 3-16 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-18,3-19 
TABI^ LOOKUP entry 2-7 
TABIi^ OR ARRAY NAME entry 4-14 
tables 

(see also "arrays": "LOKUP operation"; "related tables and 
arrays"; "item") 

adding entries to a short table 4-4 

adding items to a table or array 4-8 

alphanumeric entries 4-4 

alternating format 4-5,4-14 

alternating tables 4-10 

building (see "loading") 

changing 4-3,4-5,4-8 

compilation 4-5 

compile time 3-5,4-3,4-6 

creating input records 4-4 

decimal positions 4—7,4-17 

defining tables (Extension sheet) 4-10 
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tables (continued) 
definition 4-1 
definitions of terms C-1 
editing 4-10 
end of table 4-5,4-10 
entry 4-4,4— *3 

Extension specifications 4-10 
file designation entry 3-9 

format 4-1 ,4-5 

fun table (defirition) 4-4 

general discussion 4—1 

identifier 4-2 

input record 4—4 

item 4-1 

entries in input records 4-4 

format 4-1,4-4 

index 4-2 

searching for 4-2 

(see also "LOKUP operation code") 
length of entry 4—4 
length of table 7-19 
loading 4-5 

compilation time 4—3,4—5 

considerations 4—3 

placement in source deck 1-6 

Bre-execution time 4—3,4-6,4—12 
P (see "LOKUP operation code") 
maximum descriptions per program 4-1 
modifying the contents 4—8 

adding entries to a short table 4-4 
name 4-2 

alternating tables 4—14 

as field name 4-10 

as operand 4-2 

as result field 4-8 

Jixtension sheet 4—14 

Pile Description sheet 5-7 

rules for 4—2 
number of entries per table 4-15 
numeric entries 4-4 
output 4-9,4-10 . ,. 

formatting (see "EXCPT operation") 

on one record 4-10 

via Extension sheet 4-9 

via Output sheet 4-9,4—10 
packed or binary format 4—6,4—15 
pre-execution time 374,4-3,4—6 
recording table data (rules) 4-4 

referencing tables 4-9 . 

(see also "LOKUP operation") 

via calculations 4-8 
related tables 4-4 

alternating format 4-5,4—14 

definition 4-4 
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tables (continued) 

length of entry specification 4-15 
naming 4-14 
searching 7-19 

(see also "LOKUP" operation code") 
resetting table items to zeros or blanks 8-20 
searching tables (see "LOKUP operation") 
sequence (Extension sheet entry) 4-17 
sequence of definition 4-11 
short tables (definition) 4-4 
types 4-3 

compile time 4-3 
execution time 4—3 
full 4-4 

pre-execution time 4—3 
^elated 4-4 
short 4-4 
XFOOT (see "XFOOT' operation code") 
tables, reference (see "summary tables") 
TAG (tag) operation code 7-17 
tape device assignment 3-16,3-19 
TAPE LABELS entry 3-21 
TAPE REWIND entry 3-22 
TESTB (test bit) operation code 7-12 

use of resulting indicators 7-12 
testing and compare operations 7-10 
testing fields (see "field indicators") 

testing result of calculations (see "resulting indicators") 
TESTZ (test zone) operation code 7-11 
"TO" FILENAME entry (Extension sheet) 4-13 
total 

calculat ions 7-16, 7-32 

operations (calculations; output) 1-13|7-32 

output records 8^2 

control level indicator with 7-32 
overflow during total outjxit 8-2,8-3 
printing (control level on input) 6-27 
accumulating totals 8-20 
after overflow 5-4,5-5 
resetting fields to zeros 8-20 
time 1-13 
TR entry (see "spread cards") 
track address 3-19 
trailer records (see "spread cards") 
translation table coding sheet 2-5 
H/D/T/E 8-8 
)F FILE 



ni OF FILE entry 3-8 
TYPIC OF FORM entry 

Calculation sheet 7-31 
Control Card sheet 2-2 
ICxtension sheet 4—12 
, Pile Description sheet 3-7 
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TYPE OF FORM entry (continued) 

Input sheet 6-12 

Line Counter sheet 5-3 

Output sheet 8-7 
type of record {see "record type") 
T±PF OF F?ECORD entry 8-7 
types of output records 8-2 

UDATE special word 8-5 

inverted print format 2-4 
UDAY special word 8-5 
ULAEL operation codes 7-28 
UMOMTH special word 8-5 
United Kingdom date format 8-5,8-17 
unpacked decimal format 6-3 
unsigned numeric literals 7-2 

update file 3-2 

(see also "multifile processinf^" ) 
conditioning 3-23 
look-ahead fields 6-2 
match fields 6-28 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 5-1^,3-19 
"to" filename entry 4—13 
variable-length records 3-11 

user's label (ULABL) operation 7-2F 

UYEAR special word 8-5 

U1-U8 indicators (see "external indicators"; "Indicators") 

valid add records 3-22 

valid indicators (summary table) B-2 

valid RPG IT name (definition) 3-7 

XFOOT (crossfoot) operation code 7-6 
with table items 4-9 

z (zone) (see "record identification codes") 
Zr-ADD (zero and add) operation code 7-4 
Z-SUB (zero and subtract) operation code 7-4 
zero balance 

effect of edit code 8-22 

effect of inverted print 2-4 
zeroing fields 

blank after 8-20 

subtract operation 7-4 
ZERO OR BLANK entry 6-33 
zero suppression 

effect of inverted print 2-4 

leading zero suppression 8-5 

relation to edit word or edit code P-22 

zone . .. . 

(see also "character structure"? "PORTION entries") 

bits 6-4 
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zone (continued) 

bytes 6-4 

character grouping by equal zone 6-21,6-22 

move operations 7-7 

move zone operations 7-S 

test zone operation 7-11 

unpacked decimal format 6-3,6-5 
zone punch 6-3 

01-99 Indicators 

(see also "indicators"; "numeric indicators") 
Calculation sheet uses 7-33,7-39 
effect of SETON and SETOP 7-13 
general description of use 6-16 
Input sheet uses 6-16 
field indicators 6-32 
field record relation 6-29 
record identifying indicsitor 6-16 
Output sheet use 8-13 
IP (first page) indicator 

(see also "indicators"; "first page indicator") 
as output indicator 8-13 
restriction vdth output fields P-14 
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